MAKE IT SMOOTHER!!!!!!!

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?

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

Code:

---

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

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...

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

Code:

---

Text1.Top = Text1.Top - 50

---

2. You could use a loop instead

Code:

---

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

Yeah , i just did that Kedaman, thanks everyone

Code:

---

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 :p.

Thanks anyways man!