[اليوم السابع]

(26-11-19, 08:14 AM)3booody كتب :

كود :

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

   End Sub
   Dim i As Integer = 0
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If ListBox1.Items.Count > 1 Then
           If i > ListBox1.Items.Count - 1 Then
               i = 0
           End If
           ListBox1.SelectedIndex = i
           i += 1
       End If
   End Sub

الله ينور يا محترم تسلم ايدك ومعلش منين ما تكون فاضي لو سمحت ابقي ارفقلي كود في الفورم لود يعمل سيلكت ع اول حاجه في الليست بوكس فضلا وليس امرا