[asto]

اولا تضع اثنين ليبل و واحد كوماند (ان اردت) و واحد تكست او ليبل آخر

يضاف هذا الى زر الstop

Label1.Caption = Label(0).Caption

و هذا هو الكود ضمن كوماند1 او في كوماند الحفظ :

كود :

Private Sub Command1_Click()
Dim u, uu, uuu, v, vv, vvv As Integer
u = Split(Label(0), ":")(0)
uu = Split(Label(0), ":")(1)
uuu = Split(Label(0), ":")(2)
v = Split(Label1, ":")(0)
vv = Split(Label1, ":")(1)
vvv = Split(Label1, ":")(2)
ua = uuu + (uu * 60) + (u * 3600)
va = vvv + (vv * 60) + (v * 3600)
w = ua - va
Dim h, s, m As Integer
h = w \ 3600
m = (w Mod 3600) \ 60
s = (w Mod 3600) Mod 60
Text2.Text = h & ":" & m & ":" & s
End Sub

--------------------------------------------------------------------------------------
لكن اذا اردت الاستعمال مع كوماند الحفظ عليك عمل عداد الضغظات
بوضع تكست او ليبل مخفي و في الفورم لود جعله = الصفر
و ضمن كوماند ابدأ اكتب اذا اخترنا تكست 3 مثلا
i=text3.text
i=i+1
text3.text=i
و اعده في كوماند الحفظ او الاستمرار كما تريد او حتى كليهما
و اضافة شرط الى الكوماند1 ايضا
if text3.text>1 then
Label1.Caption = Label(0).Caption
في البداية
و لا ننسى استبدال Private Sub Command1_Click() ب Public Sub Command1_Click()
و اضافة الكود التالي الى كواند الحفظ و الاستمرار
command1_click