[eng.khalidvb]

السلام عليكم تفضل اخي سعووود ..

كود :

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = Format(Now, "HH:MM:ss")
    End Sub