Great Day, I have a splashscreen that loads and remains visible for 4 seconds based on the On Timer event. I would also like to display a blinking label that says "Please wait while application is loading." Since I already have the On Timer event being triggered by the splashscreen, I tried to write some code to cause the label to blink. In the forms On Load event, I have the following code:
Dim stloop1 As Long
Dim stloop2 As Long
Dim stloop3 As Long
Do Until stloop1 = 10
stloop1 = stloop1 + 1
stloop2 = 1
stloop3 = 1
Me.lblWait.Visible = True
Do Until stloop2 > 750
stloop2 = stloop2 + 1
Loop
Me.lblWait.Visible = False
Do Until stloop3 > 250
stloop3 = stloop3 + 1
Loop
Loop
I am trying to make the label visible for 3/4 of a second and invisible for 1/4 of a second; however the label does not show up at all. I would like to know how to make the label blink.
Thanks in advance for your assistance.
r/David
Tidak ada komentar:
Posting Komentar