Hi Folks, would it be possible for you to help modify my code,
what im trying to do is create a countdown timer from 5 minutes and when the time is up close the excel application completey, this is the code i have now, its probably not right anyway thanks chris
Private Sub UserForm1_Initialize()
Dim dteStart As Date, dteFinish As Date
Dim dteStopped As Date, dteElapsed As Date
Dim boolStopPressed As Boolean, boolResetPressed As Boolean
Start_timer:
dteStart = Time
boolStopPressed = False
boolResetPressed = False
Timer_Loop:
DoEvents
dteFinish = Time
dteElapsed = dteFinish - dteStart + dteStopped
If Not boolStopPressed = True Then
Label2 = dteElapsed
If boolResetPressed = True Then GoTo Start_timer
GoTo Timer_Loop
Else
Exit Sub
End If
End Sub
Bookmarks