重点为：向系统注册“TaskbarCreated”消息

Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = lngMsgBarRester Then '重建托盘图标
FrmMain.cTray.InTray = False
FrmMain.cTray.InTray = True
End If
'交还控制权给系统继续监测热键
Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

Sub Main()
lngMsgBarRester = RegisterWindowMessage("TaskBarCreated") '注册任务栏创建的消息
End Sub