' Benötigte API-Deklarationen
Private Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" _
  (ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
Private Const LB_GETTOPINDEX = &H18E
Private Const LB_GETITEMHEIGHT = &H1A1

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  Dim nTopIndex As Long
  Dim nItemHeight As Long
  Dim i As Long
  Dim nIndex As Long
  Dim nCount As Long
 
  If Button = vbRightButton Then
    With List1
      ' Ermitteln des ersten Index der Listbox
      nTopIndex = SendMessage(.hwnd, LB_GETTOPINDEX, 0, 0)
 
      ' Ermitteln der Item-Zeichenhöhe
      nItemHeight = SendMessage(.hwnd, _
        LB_GETITEMHEIGHT, 0, 0) * Screen.TwipsPerPixelY
 
      ' Anzahl sichtbarer Einträge
      nCount = .Height / nItemHeight
      If .Height Mod nItemHeight <> 0 Then nCount = nCount + 1
 
      ' Ermitteln des Index, über dem der Mauspfeil steht
      nIndex = nTopIndex - 1
      For i = 0 To List1.Height Step nItemHeight
        If i > Y Then Exit For
        nIndex = nIndex + 1
      Next
 
      If nIndex >= 0 And nIndex < .ListCount Then
        ' Eintrag selektieren
        .ListIndex = nIndex
      End If
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de