[bakriano30@yahoo.com]

(30-07-19, 03:42 PM)mohamed11223 كتب : للاسف لم يعمل

اول شئ ضيف بوتن ليست بوكس و تايمر 
في حدث اللود ضيف ده 
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           Timer1.Interval = 1000
           For i = 1 To 7
               ListBox1.Items.Add(i)
           Next
       Catch ex As Exception

       End Try
   End Sub

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

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Try
           ListBox1.SelectedIndex += 1
       Catch ex As Exception
           Timer1.Stop()
           MsgBox("Done !!")
       End Try
   End Sub
End Class