Private Function 当前选中(列表 As ListBox) As Long
    For i = 0 To 列表.ListCount - 1
        If 列表.Selected(i) = True Then Exit For
    Next i
    当前选中 = i
End Function

Private Sub Command1_Click()
    List1.Selected(0) = True
    Command2.Enabled = False
    Command3.Enabled = True
End Sub

Private Sub Command2_Click()
    i = 当前选中(List1) - 1
    List1.Selected(i) = True
    If i = 0 Then
        Command2.Enabled = False
        Command3.Enabled = True
    End If
End Sub

Private Sub Command3_Click()
    i = 当前选中(List1) + 1
    List1.Selected(i) = True
    If i = List1.ListCount - 1 Then
        Command3.Enabled = False
        Command2.Enabled = True
    End If
End Sub

Private Sub Command4_Click()
    List1.Selected(List1.ListCount - 1) = True
    Command2.Enabled = True
    Command3.Enabled = False
End Sub

Private Sub Form_Load()
    Command1.Caption = "第一个"
    Command2.Caption = "上一个"

遗漏了三行：
    Command3.Caption = "下一个"
    Command4.Caption = "末一个"
End Sub