minimize MDI form to systray

[tr0n]

right, this is driving me up the wall! i found some code to minimize my MDI form to the systray, and then allows the user to either double-click the icon to restore the window, or right-click it to get a menu that allows them to restore or exit.

this all works fine in the IDE, but when it's compiled, it doesn't react to any mouse clicks on the icon, so i can't restore the window.

the thing that's making me drive further up the wall is the fact that the sample program that i got the code from works fine in the IDE and when compiled (it's also an MDI project, and i just copy/pasted the code).

this is the code that it seems to have trouble with:

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, _
x As Single, Y As Single)
    If (Me.ScaleWidth = vbPixels) Then
        lngMsg = x
    Else
        lngMsg = x / Screen.TwipsPerPixelX
    End If
    
    Select Case lngMsg
        Case WM_LBUTTONDBLCLK    '515: Restore form window
            Me.WindowState = vbMaximized
            lngResult = SetForegroundWindow(Me.hwnd)
            Shell_NotifyIcon NIM_DELETE, nid
            Me.Show
        Case WM_RBUTTONUP        '517: Display popup menu
            lngResult = SetForegroundWindow(Me.hwnd)
            Me.PopupMenu mnuSystray
    End Select
End Sub

any ideas why this isn't working? thanks.