Hi,
I add my app to the SysTray and i have my icon, I olso change the icon BUT when i change the icon i dont get the Cllback Message !. Am i missing somthing here?.



Call ChangeTrayIcon Form1.picIdle.Picture


Public Sub ChangeTrayIcon(vIcon As Variant)

With MyTrayIcon
.hIcon = vIcon
.cbSize = Len(tTrayIcon)
End With
Shell_NotifyIcon NIM_MODIFY, MyTrayIcon

End Sub

Regards