Next Button - نسخة قابلة للطباعة

كود :
Public Class Form1

    Dim IsSpacePressed As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        GoNext()

    End Sub



    Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown

        If e.KeyCode = 32 Then

            If IsSpacePressed = False Then

                IsSpacePressed = True

            Else

                GoNext()

            End If

        End If

    End Sub

    Private Sub Button1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp

        If e.KeyCode = 32 Then

            IsSpacePressed = False

        End If

    End Sub

    Private Sub GoNext()

        If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then

            ListBox1.SelectedIndex += 1

        Else

            ListBox1.SelectedIndex = 0

        End If

    End Sub

End Class