单击托盘图标，显示菜单

    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