Private Sub NotifyIcon1_MouseClick() Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
NotifyIcon1.ContextMenuStrip = ContextMenuStrip1
Dim t As Type = GetType(NotifyIcon)
Dim mi As Reflection.MethodInfo = t.GetMethod("ShowContextMenu", BindingFlags.NonPublic Or BindingFlags.Instance)
mi.Invoke(Me.NotifyIcon1, Nothing)
NotifyIcon1.ContextMenuStrip = Nothing
End If
End Sub