Do Until

[wolfgang]

can someone help me with this loop. i am not too
familiar with it. i have a userform with a label. i
want the label to swoosh across the form from left = 300
to left =6. so i want the lable to start at left = 300
and slowly scroll across until left =6 TIA.

 

[chandlm]

I have attached a quick form showing how to do this.

Hope this is what you were after

Attachment filename: labelleft.zip
Download attachment: http://www.excelforum.com/attachment.php?postid=418254

 

[Chip Pearson]

Wolfgang,

Try something like

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As
Long)
Private Sub CommandButton1_Click()
Dim Pos As Single
For Pos = 300 To 6 Step -1
Me.Repaint
Sleep 1
Me.Label1.Left = Pos
Next Pos
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Brad]

This subroutine will do what you described using a for
loop, as I believe that would be more appropriate.

Sub MoveLabel()
Dim i As Single
For i = 300 To 0 Step -0.1
Label1.Left = i
Next
End Sub

HTH.