Hola mira este ejemplo que te hice aunque parezca haber mucho código es bastante sencillo
Public Class Form1
'variables globales para este ejemplo
Private SelectIndex As Integer
Private Min As Integer
Private Max As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SelectIndex = 0
Min = 0
'establecer la variable Max en la cantidad maxima de items importante restarle -1 para que no se pase del maximo permitido
Max = ListBox1.Items.Count - 1
ListBox1.SelectedIndex = SelectIndex
End Sub
'boton para seleccionar el siguiente item en el listbox
Private Sub BtnNext_Click(sender As Object, e As EventArgs) Handles BtnNext.Click
'Ir hacia delante y comprobar que el contador no sobrepace el limite maximo de los items
'y en caso de que sea igual al numero maximo de items seleccione el primero de la lista
SelectIndex += 1
If SelectIndex > Max Then
SelectIndex = Min
End If
ListBox1.SelectedIndex = SelectIndex
End Sub
'boton para selecionar el item anterior en el listbox
Private Sub BtnPast_Click(sender As Object, e As EventArgs) Handles BtnPast.Click
'Ir hacia atras para seleccionar el item anterior y comprobar que el items no sea inferior a cero
'y en caso de que sea igual a cero seleccione el ultimo item de la lista
SelectIndex -= 1
If SelectIndex < Min Then
SelectIndex = Max
End If
ListBox1.SelectedIndex = SelectIndex
End Sub
End Class
