şimdi arkadaşım aslında yapman gereken şeyler; forma bir timer, button ve label eklemek. timer'in özelliklerinden interval'ını 1 (buraya yazdığın değer milisaniye olarak ele alınacak) olarak ayarla ve enable=false olsun.
kullanıcı butona tıkladığı zaman timer'in enable değerini true olarak ayarla. timer'a çift tıkla (zaten direkt olarak kod penceresi karşına gelecek, orada timer olaylarından timer_tick olayının altına yazıcaksın)
If Val(l.Text.Split(":")(3)) < 99 Then '99 ms = 1 sn
l.Text = l.Text.Split(":")(0) + ":" + l.Text.Split(":")(1) + ":" + l.Text.Split(":")(2) + ":" + (Val(l.Text.Split(":")(3)) + 1).ToString.PadLeft(2, "0")
ElseIf Val(l.Text.Split(":")(3)) = 99 Then
l.Text = l.Text.Split(":")(0) + ":" + l.Text.Split(":")(1) + ":" + l.Text.Split(":")(2) + ":" + "00"
If Val(l.Text.Split(":")(2)) < 59 Then
l.Text = l.Text.Split(":")(0) + ":" + l.Text.Split(":")(1) + ":" + (Val(l.Text.Split(":")(2)) + 1).ToString.PadLeft(2, "0") + ":" + l.Text.Split(":")(3)
ElseIf Val(l.Text.Split(":")(2)) = 59 Then
l.Text = l.Text.Split(":")(0) + ":" + l.Text.Split(":")(1) + ":" + "00" + ":" + l.Text.Split(":")(3)
If Val(l.Text.Split(":")(1)) < 59 Then
l.Text = l.Text.Split(":")(0) + ":" + (Val(l.Text.Split(":")(1)) + 1).ToString.PadLeft(2, "0") + ":" + l.Text.Split(":")(2) + ":" + l.Text.Split(":")(3)
ElseIf Val(l.Text.Split(":")(1)) = 59 Then
l.Text = l.Text.Split(":")(0) + ":" + "00" + ":" + l.Text.Split(":")(2) + ":" + l.Text.Split(":")(3)
If Val(l.Text.Split(":")(0)) < 24 Then
l.Text = (Val(l.Text.Split(":")(0)) + 1).ToString.PadLeft(2, "0") + ":" + l.Text.Split(":")(1) + ":" + l.Text.Split(":")(2) + ":" + l.Text.Split(":")(3)
End If
End If
End If
End If
biraz uzun gözükse de gözünü korkutmasın. burada önemli olan 99. milisaniyeden sonra milisaniyeyi sıfırlayıp saniyeyi bir arttırmasıdır. aynı şey saniye, dakika ve saat için de geçerlidir. kolay gelsin.