gostaria de saber como faço pra passar pro proximo registro e tambem recuar um registro no Filelistbox ao clicar num botao

Regis aqui vai a rotina para os dois botões Proximo e Anterior

 

Private Sub Proximo_Click()
If File1.ListCount >= 1 Then
For i = 0 To File1.ListCount = File1.ListIndex + 1
File1.ListIndex = File1.ListIndex + 1
Next i
End If
End Sub

 

Private Sub Anterior_Click()
If File1.ListCount >= 1 Then
If File1.ListIndex = 0 Then
File1.ListIndex = File1.ListIndex + 0
Else
File1.ListIndex = File1.ListIndex - 1
End If
End If
End Sub