se gli elementi sono in una listbox basta usare l'id...
usi un id e una variabile di appoggio pubbliche
'Dichiarazione dell'id elemento
Public actid As Integer = 2
Public actelement As String
'Fai la prima lettura
actelement = ListBox1.Items.Item(actid)
'Col tasto avanti
actid += 1
actelement = ListBox1.Items.Item(actid)
'Col tasto indietro
actid -= 1
actelement = ListBox1.Items.Item(actid)