... gAddedToTray ThenTray.uID = gTrayIdTray.hwnd = gTrayHwndTray.szTip = Tip & vbNullCharTray.uFlags = NIF_TIPTray.cbSize = Len(Tray)rc = Shell_NotifyIcon(NIM_MODIFY, Tray)End IfgTrayTip ... SubWndProc)SetWindowLong gTrayHwnd, GWL_USERDATA, ObjPtr(Me)AddIcon gTrayHwnd, gTrayId, TrayTip, TrayIcongAddedToTray = TrueEnd IfElseIf gAddedToTray ThenDeleteIcon gTrayHwnd, gTrayIdSetWindowLong gTrayHwnd, ... TipPropertyChanged sTrayTip' End Property' ' Public Property Get TrayTip() As String' TrayTip = gTrayTip' End IfTray.uCallbackMessage = TRAY_CALLBACKTray.uFlags = Tray.uFlags...