Private Sub lb123_KeyDown(KeyCode As Integer, Shift As Integer)
'Wenn Pfeiltasten "hoch" oder "runter" gedrückt werden, Checke Selected Item
    If KeyCode = 40 Or KeyCode = 38 Then
        Dim frm As Form, ctl As Control
        Dim varItm As Variant, intI As Integer
 
        Set frm = Form123
        Set ctl = Form123.lb123
        For Each varItm In ctl.ItemsSelected
            For intI = 0 To ctl.ColumnCount - 1
                Debug.Print ctl.Column(intI, varItm + 1)
            Next intI
        Next varItm
    End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de