Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
Me.Hide()
End SubProtected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
Const CS_DBLCLKS As Int32 = &H8
Const CS_NOCLOSE As Int32 = &H200
cp.ClassStyle = CS_DBLCLKS Or CS_NOCLOSE
Return cp
End Get
End Property
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason = CloseReason.TaskManagerClosing Or e.CloseReason = CloseReason.WindowsShutDown Then
' أي إذا تم حذف البرنامج من إدارة المهام لسيتم إغلاق البرنامج
' وكذلك إذا أغلقت الجهاز وبرنامجك مفتوح سيتم إغلاقه أيضاً
'لأننا إذا لم نتحقق من ذلك فمثلا عندما تريد إغلاق نظام التشغيل لا يستجيب الجهاز لأن
'برنامج مفتوح في الخلفية
e.Cancel = False
Else
Me.Hide()
e.Cancel = True
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
Me.Opacity = 0
Me.ShowInTaskbar = False
End Sub