[اسلام الكبابى]

وهذا هو الكود النهائى لحل جميع المشاكل بما فيهم المشكلة الثانية أو الثالثة

كود :

[align=left]Dim I As Integer
Dim J As Integer
Dim EKAFF As Integer
Dim uuuS1 As Integer, uuuS2 As Integer, uuuS As Integer
Dim uuuM1 As Integer, uuuM2 As Integer, uuuM As Integer
Dim uuuH1 As Integer, uuuH2 As Integer, uuuH As Integer
Private COK As Boolean


Private Sub Command1_Click()
EKAFF = 1
Label1.Visible = False
Text1.Text = "00:00:00"
uuuS1 = DateTime.Second(Now)
uuuM1 = DateTime.Minute(Now)
uuuH1 = DateTime.Hour(Now)
COK = True
Do While COK
10 uuuS2 = DateTime.Second(Now)
uuuM2 = DateTime.Minute(Now)
uuuH2 = DateTime.Hour(Now)
If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1
If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1
uuuS = uuuS2 - uuuS1
uuuM = uuuM2 - uuuM1
uuuH = uuuH2 - uuuH1
If uuuS < J Then GoTo 10
Text1.Text = uuuH & ":" & uuuM & ":" & uuuS
    DoEvents
Loop
End Sub


Private Sub Command2_Click()
COK = False
If EKAFF = 0 Then GoTo 100
Label1.Visible = True
uuuS2 = DateTime.Second(Now)
uuuM2 = DateTime.Minute(Now)
uuuH2 = DateTime.Hour(Now)
If uuuS2 < uuuS1 Then uuuS2 = uuuS2 + 60: uuuM2 = uuuM2 - 1
If uuuM2 < uuuM1 Then uuuM2 = uuuM2 + 60: uuuH2 = uuuH2 - 1
uuuS = uuuS2 - uuuS1
uuuM = uuuM2 - uuuM1
uuuH = uuuH2 - uuuH1
Text1.Text = uuuH & ":" & uuuM & ":" & uuuS
EKAFF = 0
100 End Sub


Private Sub Command3_Click()
Text1.Text = "00:00:00"
End Sub


Private Sub Form_Activate()
Text1.Text = "00:00:00"
End Sub

[/align]