'窗体:______________ '声明:PublicLastStateAsInteger'为图标定义窗体信息 '使用前: 'IfWindowState=vbMinimizedThen 'LastState=vbNormal 'Else 'LastState=WindowState 'EndIf '使用: 'AddToTrayMe,mnuTray'加载图标 'SetTrayTip"VBHelpertrayiconprogram"'图标标签 'R