Private Sub MainForm_SizeChanged(ByVal sender As Object, ByVal e As _
  EventArgs) Handles MyBase.SizeChanged
			If WindowState = FormWindowState.Minimized Then
				Me.ShowInTaskbar      = False
				ntfSystemInfo.Visible = True
			End If
		End Sub
		Private Sub ntfSystemInfo_MouseDown(ByVal sender As Object, ByVal e As _
  MouseEventArgs) Handles ntfSystemInfo.MouseDown
 			If e.Button.ToString = "Left" Then
 				If WindowState = FormWindowState.Minimized Then
					WindowState = FormWindowState.Normal
					ntfSystemInfo.Visible = False
					ShowInTaskbar         = True
				End If
			ElseIf e.Button.ToString = "Right" Then
				cmuTrayContextMenu.TrackPopup(Me.PointToScreen(New Point(e.X, e.Y)))
			End If
		End Sub