philfer
12-18-2010, 03:35 PM
Hello,
I am trying to create a form that has scrolling text on it. I do :-
Private Sub UserForm_Activate()
For i = 1 To 10
If Application.Wait(Now + TimeValue("0:00:01")) = True Then
Me.lblMessage.Caption = Mid("***Happy Xmas****", i, 15)
Me.Repaint
End If
Next i
Unload Me
End Sub
and it works fine but is slow. When I do :-
If Application.Wait(Now + (TimeValue("0:00:01")+0.5)) = True Then
instead the form just loads and unloads in a blink of an eye.
Is there an easier way to animate a form
Thanks
Phil
I am trying to create a form that has scrolling text on it. I do :-
Private Sub UserForm_Activate()
For i = 1 To 10
If Application.Wait(Now + TimeValue("0:00:01")) = True Then
Me.lblMessage.Caption = Mid("***Happy Xmas****", i, 15)
Me.Repaint
End If
Next i
Unload Me
End Sub
and it works fine but is slow. When I do :-
If Application.Wait(Now + (TimeValue("0:00:01")+0.5)) = True Then
instead the form just loads and unloads in a blink of an eye.
Is there an easier way to animate a form
Thanks
Phil