100分问题：关于托盘程序中的回调函数问题

Question

∵　.ucallbackmessage = WM_USER + 100
∴　If umsg=WM_USER + 100 ThenIf wparam = umsg=WM_USER + 100 Then
  Select Case lparam
  Case wm_lbuttondblck '双击左键
   If Form1.mnustart1.Caption = "&start server" Then
   With pnid
   .hicon = Form1.Picture1.Picture
   .sztip = "web server start" & Chr(0)
   End With
   Form1.mnustart.Caption = "& stop server"
   Form1.mnustart1.Caption = "&stop server"
   Form1.Icon = Form1.Picture1.Picture
   Else
   With pnid
   .hicon = Form1.Picture2.Picture
   .sztio = "web server stop" & Chr(0)
   End With
   Form1.mnustart.Caption = "&start server"
   Form1.mnustart1.Caption = "&start server"
   Form1.Icon = Form1.Picture2.Picture
   End If
   Shell_NotifyIcon NIM_MODIFY, pnid
   Case wm_rbuttondown
   Form1.PopupMenu Form1.mnutray, vbpopupmenurightallign, , ,Form1.mnustart1    '弹出mnutray菜单
   End Select
   End If

Answer 1

用子分类的方法比较危险，可以用一种变通的方法：
http://www.applevb.com/sourcecode/Bar.zip
上面是一个在任务栏添加图标的程序，你可以参考一下。