[RESOLVED] Minimize to SysTray bubble ?

[planethax]

I am using the code found here, but I have a question
TrayAdd hwnd, Me.Icon, "progress is at " &Variable or even a lable.caption, MouseMove

I have used a variable (etc currentKey) and even a lables caption (etc lblMini.caption)

This works when I minimize, but does not update as the caption changes or when variable changes, I have also tried to update with mousemove
Case MouseMove
Debug.Print "MouseMove"
TrayAdd hwnd, Me.Icon, "Progress is " & lblMini.caption, MouseMove

debug.print lblMini.caption

It updates in the immediate window, but not the mouseover bubble,
Is there a way to have this update?

'[Adding the tray]
Private Sub cmdAdd_Click()
    TrayAdd hwnd, Me.Icon, "Progress is " & lblMini.caption, MouseMove
    mnuHide_Click
debug.print lblMini.caption
End Sub

'[Checking The mouse event]
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cEvent As Single
cEvent = X / Screen.TwipsPerPixelX
Select Case cEvent
    Case MouseMove
        Debug.Print "MouseMove"
    TrayAdd hwnd, Me.Icon, "Progress is " & lblMini.caption, MouseMove
    
    Case LeftUp
        Debug.Print "Left Up"
    Case LeftDown
        Debug.Print "LeftDown"
    Case LeftDbClick
        Debug.Print "LeftDbClick"
    Case MiddleUp
        Debug.Print "MiddleUp"
    Case MiddleDown
        Debug.Print "MiddleDown"
    Case MiddleDbClick
        Debug.Print "MiddleDbClick"
    Case RightUp
        Debug.Print "RightUp": PopupMenu mnuForm
    Case RightDown
        Debug.Print "RightDown"
    Case RightDbClick
        Debug.Print "RightDbClick"
End Select
End Sub