Problemer mod Tray(SHELL_NOTIFYICON)

[Richard87]

Jeg har et progblem med et tray icon keg har laget...

 

Form_Mousemove koden blir ikke kalt nar jeg trykker pa ikonet...

 

her e koden min:

Public Sub TrayShow(ByVal bShow As Boolean)
Dim IconData As NOTIFYICONDATA
'Velger bildet som skal vises og tekst
With IconData
   .cbSize = Len(IconData)
   .hIcon = frmMain.Picture1.Picture.Handle
   .hWnd = frmMain.hWnd
   .szTip = "VB SOCK5 Server" & Chr(0)
   .uCallbackMessage = WM_MOUSEMOVE
   .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
   .uID = vbNull
End With
   If bShow Then
       Shell_NotifyIcon NIM_ADD, IconData
   Else
       Shell_NotifyIcon NIM_DELETE, IconData
   End If
End Sub

 

og MouseMove:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
Dim msg As Long
msg = X / Screen.TwipsPerPixelX
Select Case msg
   Case WM_LBUTTONDBLCLK: Debug.Print "WM_LBUTTONDBLCLK"
       If Me.Visible = True Then
           Me.Hide
       Else
           Me.Show
       End If
   Case WM_RBUTTONDOWN: Me.PopupMenu mnuInfo_Top, , , , mnuShow: Debug.Print "WM_RBUTTONDOWN"
End Select
Debug.Print msg, WM_RBUTTONDOWN, WM_LBUTTONDBLCLK
End Sub

 

Formen min har scalemode = vbTwips...