this is the code I use:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X / Screen.TwipsPerPixelX
Select Case X
Case WM_RBUTTONDOWN
PopupMenu mnuFile
Case WM_LBUTTONDBLCLK
frmOnlineExecutor.Visible = True
End Select
End Sub


my problem is that when another form is focused I have to right click twice on the icon before the menu is shown. Is there any way fix this?