Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyReturn) And ((Shift And acAltMask) <> 0) Then
KeyCode = 0
Me!Liste0.Selected(0) = True
End If
End Sub
Alt + Enter ile listedeki ilk kayda gidilebilir.