Phelony
10-28-2011, 04:34 AM
Hi Guys
I've written the below, but I'm clearly not doing something right.
I've got a userform with 9 image boxes in it, each of them starts blank (blended with the form background) and then each second one colours itself blue until all 9 are complete and then it closes.
I actually need different timescales, but for testing purposes seconds are fine.
Ultimately, this userform will pop up and start it's "animation" while an entirely seperate script runs in the background of Excel.
Could someone point out what I'm not doing right please?
this is in the userform code
Private Sub userform_activate()
Application.OnTime Now + TimeValue("0:00:01"), Name:="First"
Application.OnTime Now + TimeValue("0:00:02"), Name:="second"
Application.OnTime Now + TimeValue("0:00:03"), Name:="third"
Application.OnTime Now + TimeValue("0:00:04"), Name:="fourth"
Application.OnTime Now + TimeValue("0:00:05"), Name:="fifth"
Application.OnTime Now + TimeValue("0:00:06"), Name:="sixth"
Application.OnTime Now + TimeValue("0:00:07"), Name:="seventh"
Application.OnTime Now + TimeValue("0:00:08"), Name:="eighth"
Application.OnTime Now + TimeValue("0:00:09"), Name:="ninth"
Unload waitingform
End Sub
this (and others like it) are in a seperate module
Sub first()
Image1.BackColor = vbBlue
End Sub
I'm just bashing my head against a wall now and am probably just tying myself in knots.
Any help will be greatly appreciated.
Phel
I've written the below, but I'm clearly not doing something right.
I've got a userform with 9 image boxes in it, each of them starts blank (blended with the form background) and then each second one colours itself blue until all 9 are complete and then it closes.
I actually need different timescales, but for testing purposes seconds are fine.
Ultimately, this userform will pop up and start it's "animation" while an entirely seperate script runs in the background of Excel.
Could someone point out what I'm not doing right please?
this is in the userform code
Private Sub userform_activate()
Application.OnTime Now + TimeValue("0:00:01"), Name:="First"
Application.OnTime Now + TimeValue("0:00:02"), Name:="second"
Application.OnTime Now + TimeValue("0:00:03"), Name:="third"
Application.OnTime Now + TimeValue("0:00:04"), Name:="fourth"
Application.OnTime Now + TimeValue("0:00:05"), Name:="fifth"
Application.OnTime Now + TimeValue("0:00:06"), Name:="sixth"
Application.OnTime Now + TimeValue("0:00:07"), Name:="seventh"
Application.OnTime Now + TimeValue("0:00:08"), Name:="eighth"
Application.OnTime Now + TimeValue("0:00:09"), Name:="ninth"
Unload waitingform
End Sub
this (and others like it) are in a seperate module
Sub first()
Image1.BackColor = vbBlue
End Sub
I'm just bashing my head against a wall now and am probably just tying myself in knots.
Any help will be greatly appreciated.
Phel