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

بالنسبة للمشكلة الأولى والرابعة فحلهم بتعديل الكود هكذا

كود :

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 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)
End Sub


Private Sub Command2_Click()
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

أما بالنسبة للمشكلة الثانية أو الثالثة)الزمن لايظهر الا بعد الضغط على الايقاف(
فسأقوم لك أيضآ بتعديلها باذن الله