mm creo que ya sé donde va tu error lo que pasa es que estas igualando el índice con tu contador, para que entiendas puedes tener 2 items en tu listbox, pero su indíce jamas será igual que su conteo esto debido a que el indice comienza desde 0 :
Cita: Para 3 Items :
Item 1 - Indice 0 - Conteo 1
Item 2 - Indice 1 - Conteo 2
Item 3 - Indice 2 - Conteo 3
Has esto, restale 1 al count :
Código vb:
Ver original'BOTON ARRIBA
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If ListBox1.Items.Count <= 1 Then
ElseIf ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex = 1
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
End Sub
Y nos cuentas!. Saludos!

.