الأخ الغالي عاشق الإسلام
أنت قمت بوضع الأسطر التي ذكرتها لك في المكان الخاطيء
الكود بالشكل الصحيح
Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub ResetBtn_Click()
StopTimer = True
Etime = 0
Etime0 = 0
LastEtime = 0
ElapsedTimeLbl = "00:00:00.00"
Me.Caption = "Mahmoud Zaki Mousa EL Shrief "
End Sub
Private Sub StartBtn_Click()
StopTimer = False
Etime0 = Timer() - LastEtime
Do Until StopTimer
Etime = Int((Timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
ElapsedTimeLbl = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub
Private Sub StopBtn_Click()
StopTimer = True
Beep
End Sub