Botones bajar y subir

[Lain0x]

Botón arriba:

Código:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If ListBox1.Items.Count <= 1 Then

        ElseIf ListBox1.SelectedIndex = ListBox1.Items.Count Then
            ListBox1.SelectedIndex = 1
        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1


        End If
    End Sub

Botón abajo:

Código:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If ListBox1.Items.Count <= 1 Then

        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
            v = v - 1
        End If
    End Sub