Private Sub picIcon_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
Select Case Hex(x)
    Case "1E3C"
      Dim Retval As Long, Flags As Long, CmdPos As RECT
 
      ' Position des Fensters ermitteln (Icon)
      GetWindowRect picIcon.hwnd, CmdPos
 
      ' PopUp-Menü anzeigen
      Flags = TPM_LEFTBUTTON Or TPM_TOPALIGN Or TPM_NONOTIFY Or TPM_RETURNCMD
 
      With CmdPos
        Retval = TrackPopupMenu(hPopupMenu, Flags, .right, .bottom, 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