[Mohamad Anan]

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

PHP كود :

Private Sub Form_Load()
    ' مدة المؤقت ثانية
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    ' متغير ساكن يحتفظ بقيمته
    Static Repetition As Integer

    Repetition = Repetition + 1
    'اكتب اي كود تريد تكرارة بدل الرسالة
    MsgBox Repetition

    If Repetition = 5 Then
    'استبدله بالرقم المطلوب 300
        Repetition = 0
        Timer1.Enabled = False
    End If

End Sub 


لزيادة مدة المؤقت و تكرار الكود كل 5 دقائق يصبح الكود كالتالي

PHP كود :

Option Explicit

Private Sub Form_Load()
    ' مدة المؤقت ثانية
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    ' متغير ساكن يحتفظ بقيمته
    Static Repetition As Integer

    Repetition = Repetition + 1

    If Repetition = 300 Then
    'لتكرار كود كل 5 دقائق
        Repetition = 0
        'اكتب اي كود تريد تكرارة بدل الرسالة
        MsgBox Repetition

    End If

End Sub