[أبو عمر]

لا أعلم الشكل الذي تريده لكن وجدت هذا المثال ربما يفيدك

من الكود انت بحاجة الى مربع نص وتايمر  و كوماند بوتن

PHP كود :

Private Sub Command1_Click()
Dim dtime1 As Date
Dim dTime2 As Date
Dim dTimeDiff As Date
dtime1 = CDate(Text1.Text)
dTime2 = CDate(Text2.Text)
dTimeDiff = dTime2 - dtime1
Text3.Text = Format$(dTimeDiff, "hh:nn:ss") 
End Sub
Private Sub Form_Load()
Text1 = Time
End Sub
Private Sub Timer1_Timer()
Text2.Text = Time
End Sub