Public xSonuc As Boolean
Public dTime As Date
Private Sub UserForm_Initialize()
xZaman = Now
xBeklemeSuresi = 5
dTime = DateAdd("s", xBeklemeSuresi, xZaman)
xZaman = DateAdd("s", 1, Now)
Label1 = DateDiff("s", Now, dTime)
End Sub
Sub xSayac()
Do While Now < dTime
Label1 = DateDiff("s"...