[دمعة فرح]

الخطوة الأولى
أضف في Module

PHP:
--------------------------------------------------------------------------------
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Declare Function ExitWindow*** Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

--------------------------------------------------------------------------------
الخطوة الثانية
اضف زر أمر Command وليكن اسمه (إغلاق الجهاز)
PHP:
--------------------------------------------------------------------------------


Private Sub Command1_Click()
t& = ExitWindow***(EWX_SHUTDOWN, 0)
End Sub


--------------------------------------------------------------------------------
الخطوة الثالثة
اضف زر أمر Command وليكن اسمه (إعادة تشغيل الجهاز)


PHP:

--------------------------------------------------------------------------------
Private Sub Command2_Click()
t& = ExitWindow***(EWX_REBOOT, 0)
End Sub

--------------------------------------------------------------------------------
تحياتي للجميع