السلام عليكم و رحمة الله و بركاته
أنا أعرف أسوي تايمر بيوزركنترول بس قلت باسويهه بطريقة ثانية
و سويتهه بـ Class Module و أحب أقول ليكم أن كل مرة أشتغل فيهه على الفيجوال بيسك الكلاس موديول ما أقرب منهه يعني هي أول مرة أستخدمهه
كود:
Public Event Timer()
Dim OPs As Boolean
Dim IntX As Integer
Dim After As Currency
Public Property Get Interval() As Integer
Interval = IntX
End Property
Public Property Let Interval(ByVal vNewInterval As Integer)
IntX = vNewInterval
End Property
Public Sub Go_()
OPs = True
Counter = 0
After = IntX / 1000
Dim TempTime As Currency
TempTime = Timer + After
Do Until OPs = False
DoEvents
If Timer >= TempTime Then
RaiseEvent Timer
TempTime = Timer + After
End If
DoEvents
Loop
End Sub
Public Sub Stop_()
OPs = False
End Sub
و أنا سويت للكود تطبقين واحد على الفيجوال بيسك و الثاني بماكرو باور بوينت
التطبيقين
أي واحد عنده تعديل لا يستحي و يسكت أبغي آراء و تعليقات
يلا أنتظر ردودكم
Timer بلغة الفيجوال بيسك 
العرض العادي
