كيف أستطيع أن أعطل اغلاق البرنامج؟

لا بطال عمل زر X الموجود اعلى الفورم

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Cancel = True

End Sub

-------------------------------------------------------------------

لاخفاء البرنامج من قائمة البرامج العاملة عند ضعط ALT+CTRL+DEL

Private Const RSP_SIMPLE_SERVICE = 1

Private Const RSP_UNREGISTER_SERVICE = 0

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Declare Function RegisterServiceProcess Lib "kernel32" _

(ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Sub HideApp(Hide As Boolean)

Dim ProcessID As Long

ProcessID = GetCurrentProcessId()

If Hide Then

retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)

Else

retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)

End If

End Sub

Private Sub Form_Load()

HideApp (True)

End Sub

مشكور وما قصرت ياأبو وعد وكثر الله من امثالك راح اجربها وأشوف