MAKE IT SMOOTHER!!!!!!!

[Sacofjoea]

How can I make the text move smoother?

Private Sub Timer1_Timer()
If Text1.Top > -15240 Then
Text1.Top = Text1.Top - 200
Else
Text1.Top = 4800
End If

End Sub

The timer interval is set at 300...

What do you mean, Smoother?

[Andrew Empson]

Make the timer interval smaller, and the move steps smaller.

Private Sub Timer1_Timer() 
  If Text1.Top > -15240 Then 
    Text1.Top = Text1.Top - 100
  Else 
    Text1.Top = 4800 
  End If 
End Sub

Set the Timer1.Interval to 150

[Sacofjoea]

When it moves... it kind of skips... I want it to move smoother like ill use dots for a poor example

Mine does this
.. .. .. .. .. ..
I want it to go smoother
......................

I know that I would have to make it cover more frames (if you can call it that), cause its skipping certain frames... I think I confused you more...

[kedaman]

1. YOu could set a lower interval(50) to the timer and smaller value for text1.top to decrease

Text1.Top = Text1.Top - 50

2. You could use a loop instead

Do
   Doevents
   If Text1.Top > -15240 Then 
    Text1.Top = Text1.Top - 15 
   Else 
    Text1.Top = 4800 
   End if
Loop until Youwanttoexitme

Make sure you can exit your loop by putting a boolean variable or expression instead of Youwanttoexitme

[Sacofjoea]

Yeah , i just did that Kedaman, thanks everyone

Do Until Text1.Top = 3000
DoEvents
Text1.Top = Text1.Top + 1
Loop

This code will make the textbox move down. A subtraction symbol (-) will make it go up.
Set the top to anything.

Damn! A lot of people replied while I was testing the code out ;]. Oh well, any kind of code that is submitted and works is useful...whether it be the long way or the short way .

[Sacofjoea]

Thanks anyways man!