Jump to content
Tuts 4 You

Moving text effect


Recommended Posts


Sometimes keygens and websites use that feature, in a program you got a textbox and the text like moves to the left and it deletes a character everytime, but then the text reappears from the other side, thats where im stuck..

i can make it disappear to the left but i have no idea how to make it reappear again...

that's the code i wrote so far

Public back As StringPrivate Sub Command1_Click()	If (Timer1.Enabled = True) Then	Timer1.Enabled = False
Timer1.Enabled = True End If
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 80
End SubPrivate Sub Timer1_Timer() If (LenB(Text1.Text) <> 0) Then back = Text1.Text
back = Mid$(back, 2, Len(Text1.Text))
Text1.Text = back Else
End If
End Sub

any suggestions how it should be done?

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Create New...