如何用VB.NET编写托盘程序

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