Public Class MainForm
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 设置NotifyIcon的属性
        NotifyIcon1.Icon = New Icon("path_to_your_icon.ico")
        NotifyIcon1.Text = "My System Tray App"
        NotifyIcon1.Visible = True
       
        ' 为ContextMenuStrip添加菜单项
        ContextMenuStrip1.Items.Add("Show", Nothing, AddressOf ShowForm_Click)
        ContextMenuStrip1.Items.Add("Exit", Nothing, AddressOf ExitApplication_Click)
       
        ' 将ContextMenuStrip关联到NotifyIcon
        NotifyIcon1.ContextMenuStrip = ContextMenuStrip1
    End Sub
 
    Private Sub MainForm_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
        ' 当窗体最小化时，隐藏窗体并显示系统托盘图标
        If WindowState = FormWindowState.Minimized Then
            Hide()
            NotifyIcon1.ShowBalloonTip(5000, "Minimized", "The application has been minimized to the tray.", ToolTipIcon.Info)
        End If
    End Sub
 
    Private Sub NotifyIcon1_MouseClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseClick
        ' 当用户点击系统托盘图标时显示窗体
        If e.Button = MouseButtons.Left Then
            Show()
            WindowState = FormWindowState.Normal
        End If
    End Sub
 
    Private Sub ShowForm_Click(sender As Object, e As EventArgs)
        ' 显示窗体
        Show()
        WindowState = FormWindowState.Normal
    End Sub
 
    Private Sub ExitApplication_Click(sender As Object, e As EventArgs)
        ' 退出应用程序
        Application.Exit()
    End Sub
End Class