VB6如何在拖托盘中写入应用程序图标

sPerPixelX
Select Case lMsg
    Case WM_LBUTTONUP
            ''MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
            ''单击左键，显示窗体
           ShowWindow Me.hWnd, SW_RESTORE
            ''下面两句的目的是把窗口显示在窗口最顶层
            ''Me.Show
            ''Me.SetFocus
   '''' Case WM_RBUTTONUP
    ''''        PopupMenu MenuTray ''如果是在系统Tray图标上点右键，则弹出菜单MenuTray
   '''' Case WM_MOUSEMOVE
   '''' Case WM_LBUTTONDOWN
  ''''  Case WM_LBUTTONDBLCLK
  '''' Case WM_RBUTTONDOWN
  ''''  Case WM_RBUTTONDBLCLK
  ''''  Case Else
End Select
End Sub
7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。