托盘问题：如何在鼠标移到托盘上时，提示会实时改变

Question

我将鼠标移到托盘上，都不会变，老是同一个提示。

Answer 1

'这是我的一个程序.
Private Sub Timer1_Timer()
If trayflag = False Then Exit Sub '一个标志变量,如果图标存在就处理
Dim hh As Long    With MyNot
        .hWnd =frmMain.hWnd
        .szTip = Str(Now) & Chr(&H0) '改变提示
        .uCallbackMessage = WM_USER + 100
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .uID = 1
        .cbSize = Len(MyNot)
    End With
    hh = Shell_NotifyIcon(NIM_MODIFY, MyNot) '
End Sub

Answer 2

trayflag怎么定义？我是新手，请继续指点