CodeItBetter Programming Another VB Programming Blog

'Controls - How to move up and down in a file listbox using two buttons?
Private Sub cmdDown_Click()
    If File1.ListIndex < File1.ListCount - 1 Then
        File1.ListIndex = File1.ListIndex + 1
    Else
        File1.ListIndex = 0
    End If
End Sub
 
Private Sub cmdUp_Click()
    If File1.ListIndex > 0 Then
        File1.ListIndex = File1.ListIndex - 1
    Else
        File1.ListIndex = File1.ListCount - 1
    End If
End Sub