[bakriano30@yahoo.com]

(18-07-19, 02:49 AM)سامي محمد كتب : اضف اداة الوقت Timer

كود :

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 Timer1.Interval = 1000
        Timer1.Start()
    End Sub

كود :

 Dim i As Integer
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        '300000
        i += 1
        Label1.Text = i
        If i = 10 Then
            i = 0
            Button1.PerformClick()
        End If
    End Sub

سيتم النقر على الزر بعد مرور 10 ثواني وان اردته بعد 5 دقائق فاستبدل الــ 10 بــ 300000

شكرا لك متألق دائما ولكن هذه الاكواد تكون في البوتن كليك ولا في حدث الفورم لود ولا في التايمر