Imports System.Windows.Forms
Class MainWindow
Private WithEvents NotifyIcon As New NotifyIcon
Dim setting1 As MenuItem = New MenuItem("setting1")
Dim setting2 As MenuItem = New MenuItem("setting2")
Dim setting As MenuItem = New MenuItem("setting", new MenuItem(){setting1,setting2})
Dim help As MenuItem = New MenuItem("help")
Dim WithEvents about As MenuItem = New MenuItem("about")
Dim childen As MenuItem() = New MenuItem() {setting, help, about}
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
NotifyIcon = New NotifyIcon()
NotifyIcon.BalloonTipText = "systray runnning..."
NotifyIcon.Text = "systray"
NotifyIcon.Icon = New System.Drawing.Icon("d:\ico.ico")
NotifyIcon.Visible = True
NotifyIcon.ShowBalloonTip(2000)
NotifyIcon.ContextMenu = New ContextMenu(childen)
End Sub
Private Sub NotifyIcon_Click(sender As Object, e As EventArgs) Handles NotifyIcon.Click
End Sub
Private Sub about_Click(sender As Object, e As EventArgs) Handles about.Click
MsgBox("about")
End Sub
End Class