[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
        If e.KeyCode = Keys.Down Then
            If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
                ListBox1.SelectedIndex = 0
                e.SuppressKeyPress = True
            End If
        End If
End Sub