'滑鼠單擊 程式popup
Private Sub NotifyIcon1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
         NotifyIcon1.ShowBalloonTip(3000)
        End If
End Sub