Stop Watch

السلام عليكم ورحمة الله وبركاته

ياجماعة انا احتاج لكود بسيط لعمل ستوب ووتش

استعنت بهذا الكود

لبرنامجي بهذا الشكل

Public Class Form1
    Dim s As DateTime
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        s = Now
        Timer1.Start()
        Button1.Enabled = False
        Button2.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Button1.Enabled = True
        Button2.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Hrs, Min, Sec As Long


(DateInterval.Second, s,DateTi,e,Now)Sec = DateDiff

        Hrs = Int(Sec \ 3600)
        Sec -= (Hrs * 3600)
        Min = Int(Sec \ 60)
        Sec -= (Min * 60)
        Label1.Text = Format(Hrs, "00") & ":" & Format(Min, "00") & ":" & Format(Sec, "00")

    End Sub
End Class

لكن دائما هناك خطأ في الجملة

(DateInterval.Second, s,DateTi,e,Now)Sec = DateDiff

ارجوووووووووو الافادة سريييييييييييييييييييعا