How do I add an animated ico into the systray?

[funkheads]

i am afraid again i must prove you wrong. you do not have to subclass to get a popup menu to popup when clicked. here's the code:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case ScaleX(X, vbTwips, vbPixels)
    Case WM_RBUTTONUP
        frmMenu.PopupMenu mnuMain
    Case WM_LBUTTONUP
        Exit Sub
        'or whatever code you may need when the user left-clicks on the icon
    End Select
End Sub

[

[Edited by funkheads on 04-01-2000 at 12:47 PM]