Private Sub cmdUp_click()
If List1.ListIndex > 0 then
List1.ListIndex = List1.ListIndex - 1
End If
End Sub
 
Private Sub cmdDown_Click()
If List1.ListIndex < List1.ListCount - 1 then
List1.ListIndex = List1.ListIndex + 1
End If
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!