Public Class Form1
    Inherits System.Windows.Forms.Form
        #Region " Windows 窗体设计器生成的代码 "
            Public Sub New ( ) 
                MyBase.New ( ) 
                '该调用是 Windows 窗体设计器所必需的。
                InitializeComponent ( ) 
                '在 InitializeComponent ( )  调用之后添加任何初始化
            End Sub
            '窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) 
        If disposing Then
            If Not  ( components Is Nothing )  Then
                components.Dispose ( ) 
            End If
        End If
        MyBase.Dispose ( disposing ) 
    End Sub
    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer
    '注意：以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    '创建一个NotifyIcon实例
    Friend TrayIcon = New Icon ( "Tray.ico" ) 
    '创建一个Icon实例
    <System.Diagnostics.DebuggerStepThrough ( ) > 
    Private Sub InitializeComponent ( ) 
        Me.components = New System.ComponentModel.Container ( ) 
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components ) 
                Me.NotifyIcon1.Text = "NotifyIcon1"
                Me.NotifyIcon1.Visible = True
                '对NotifyIcon实例的Icon属性赋值，完成简单托盘程序
                Me.NotifyIcon1.Icon = TrayIcon
                Me.AutoScaleBaseSize = New System.Drawing.Size ( 6,14 ) 
                Me.ClientSize = New System.Drawing.Size ( 292,273 ) 
                Me.Name = "Form1"
                Me.Text = "Form1"
            End Sub
        #End Region
        End Class
        '启动程序
        Module Module1
        Sub Main ( ) 
          Application.Run ( new Form1 ( ) ) 
        End sub
        End Module

'设定程序不应该显示在任务栏
Me.ShowInTaskbar = False
'设定程序运行后最小化
   Me.WindowState = System.Windows.Forms.FormWindowState.Minimized

Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
   Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    '创建Icon实例，用以切换图标
    Friend Icon1 = New Icon ( "icon1.ico" ) 
    Friend Icon2 = New Icon ( "icon2.ico" ) 
    '为不同图标的切换提供标识符
    Dim BeginFlag As Boolean = True
    '定时器
    Friend WithEvents Timer1 As System.Windows.Forms.Timer

Me.components = New System.ComponentModel.Container ( ) 
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon ( Me.components ) 
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu ( ) 
        Me.MenuItem1 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem2 = New System.Windows.Forms.MenuItem ( ) 
        Me.MenuItem3 = New System.Windows.Forms.MenuItem ( ) 
        Me.Timer1 = New System.Windows.Forms.Timer ( Me.components ) 
        Me.NotifyIcon1.ContextMenu = Me.ContextMenu1
        Me.NotifyIcon1.Text = "VB.NET的托盘程序"
        Me.NotifyIcon1.Visible = True
        '设定托盘程序托盘区位置显示缺省图标
        Me.NotifyIcon1.Icon = Icon1
        '在ContextMenu实例中加入菜单项
        Me.ContextMenu1.MenuItems.Add  (  Me.MenuItem1  )   
        Me.ContextMenu1.MenuItems.Add  (  Me.MenuItem2  )  
        Me.ContextMenu1.MenuItems.Add  (  Me.MenuItem3  )  
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "开始转动"
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "停止转动"
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "退出"
        Me.AutoScaleBaseSize = New System.Drawing.Size ( 6,14 ) 
        Me.ClientSize = New System.Drawing.Size ( 292,273 ) 
        Me.Name = "Form1"
        Me.ShowInTaskbar = False
        Me.Text = "VB.NET之WinForm编程动态托盘程序"
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized

'开始托盘图标的转动
    Private Sub MenuItem1_Click ( ByVal sender As System.Object,ByVal e As System.EventArgs )  Handles MenuItem1.Click
        Timer1.Enabled = True
    End Sub
    '停止托盘图标的转动
    Private Sub MenuItem2_Click ( ByVal sender As Object,ByVal e As System.EventArgs )  Handles MenuItem2.Click
        Timer1.Enabled = False
    End Sub
    '关闭程序，清除托盘资源
    Private Sub MenuItem3_Click ( ByVal sender As Object,ByVal e As System.EventArgs )  Handles MenuItem3.Click
        NotifyIcon1.Dispose ( ) 
        Application.Exit ( ) 
    End Sub
    '根据标识符，来确定托盘图标类型
    Private Sub Timer1_Tick ( ByVal sender As Object,ByVal e As System.EventArgs )  Handles Timer1.Tick
        If BeginFlag = True Then
            NotifyIcon1.Icon = Icon2
            BeginFlag = False
        Else
            NotifyIcon1.Icon = Icon1
            BeginFlag = True
        End If
    End Sub

Vbc /r:system.dll /r:system.windows.froms.dll /r:system.drawing.dll form2.vb