vb无控件实现托盘图标类,使用方便. Set mcTray = New cTray With mcTray .AddTrayIcon Pic1 传送一个图片框 .SetTrayIcon Me.Icon 传送一个图标 .SetTrayTip Me.Caption 托盘提示文字 End With-vb-free control to achieve tray icon class, easy to use.