View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
pswanie pswanie is offline
external usenet poster
 
Posts: 247
Default time elapse on userform label caption

im trying to instead of just showing "system busy. pls wait" to show "system
busy" "time left **sec's"


this i got from a posting he

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub


im trying to use this:

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:30"), Label3.Caption.(30sec)

Application.OnTime Now + TimeValue("00:00:20"), Label3.Caption = "20sec"

Application.OnTime Now + TimeValue("00:00:10"), Label3.Caption = "10sec"

Application.OnTime Now + TimeValue("00:00:05"), Label3.Caption = "05sec"

Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"

End Sub