Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" ( _
  lpPoint As POINTAPI) As Long
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Sub picIcon_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
 
  Dim P As POINTAPI
 
  Select Case Hex(x)
    Case "1E3C"
      Dim Retval As Long, Flags As Long, CmdPos As RECT
 
      ' Position des Mauszeigers ermitteln
      GetCursorPos P
 
      ' PopUp-Menü anzeigen
      Flags = TPM_LEFTBUTTON Or TPM_TOPALIGN Or TPM_NONOTIFY Or TPM_RETURNCMD
 
      With CmdPos
        Retval = TrackPopupMenu(hPopupMenu, Flags, P.x, .P.y, 0&, Me.hwnd, 0&)
      End With
 
    ' Gewähltes Menü ausgeben (wenn denn eine Auswahl stattgefunden hat)
    If Retval <> 0 Then
        MsgBox "Sie haben den Eintrag """ & Replace(MenuItem( _
          Retval).dwTypeData, "&", "", 1, 1) & """ gewählt!"
  End If
    Case "1E00"
 
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de