[sooriaty03]

جرب هذا الكود

كود :

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