vba form problem

[erivien]

ok I have a vba splash form, on it i have a label named startingin

I have made a code to count down from 5 and then close the form.
It works ok but i would like the startingin label to also count down. At the moment it is stays at 5 for 5 seconds and then closes

Private Sub UserForm_Activate()
    NewHour = Hour(Now())
    newMinute = Minute(Now())
    startingin = 5
    Do Until startingin = 0
        newSecond = Second(Now()) + 1
        Application.Wait TimeSerial(NewHour, newMinute, newSecond)
        startingin = startingin - 1
    Loop
    Unload fsplash
End Sub

how can i fix this?
help is appreciated

 

[Juan Pablo González]

Well, you're not changing the Label anywhere...

Label1.Caption = "Seconds remaining: " & startingin

 

[erivien]

the label was called startingin too.
I have tried with the caption and it just sets it to 5 from #
and wont change it anymore...

I have now changed the label name and neatened up the code a bit:

Private Sub UserForm_Activate()
    Dim startingin As Integer, newHour As Integer, newMinute As Integer, newSecond As Integer
    newHour = Hour(Now())
    newMinute = Minute(Now())
    startingin = 5
    Do Until startingin = 0
        lstart.Caption = startingin
        newSecond = Second(Now()) + 1
        Application.Wait TimeSerial(newHour, newMinute, newSecond)
        startingin = startingin - 1
    Loop
    Unload fsplash
End Sub

Its still not working properly though!

 

[al_b_cnu]

Hi,

Would it work if you put
DoEvents
just after the lstart.Caption = startingin

HTH

Alan

 

[erivien]

ye thanks for that! it works perfectly now