Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi

by PhReAk (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3^rd May 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basic though. Make a form with; Height = 7890

Rate Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi



Dim Up As Integer
Dim Across As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Up = -150
Across = 150
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + Up
If Label1.Top <= -2760 Then 'make a big form nad put this in the Timer called Timer1
Timer2.Enabled = True
Timer1.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Label2.Left = Label2.Left - Across 'put the label half way up the form on the left out of view, or as best u can and make it Visible = False, u will hav 2 change the code slightly
If Label2.Left <= -5040 Then
Label2.Visible = False
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub

Download this snippet Add to My Saved Code

Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi Comments

No comments have been posted about Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi. Why not be the first to post a comment about Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi.

Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi

Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi Comments

Post your comment

Difficulty