Сделать кнопки навигации по listbox (в начало, в конец, на одну запись вверх и вниз) - VB

Формулировка задачи:

нужно сделать кнопки навигации по listbox (в начало, в конец, на одну запись вверх и вниз) в начало и конец работают корректно:

Private Sub cmdBegin_Click()'Начало
id = 0
listNav.ListIndex = id
End Sub
 
Private Sub cmdEnd_Click()'Конец
id = listNav.ListCount - 1
listNav.ListIndex = id
End Sub

но вот остальные почему-то нет

Private Sub cmdUp_Click()'На одну запись вверх
If id >= 1 Then
id = id - 1
listNav.ListIndex = id
End If
End Sub

Решение задачи: «Сделать кнопки навигации по listbox (в начало, в конец, на одну запись вверх и вниз)»

textual
                            Листинг программы 
                        

                            On Error Resume Next
If List1.ListIndex = 0 Then
    Exit Sub
Else
    List1.ListIndex = List1.ListIndex - 1
End If
                        