• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Create a simple Scroll label for your App. ((Very simple))with 10 line of code

Create a simple Scroll label for your App. ((Very simple))with 10 line of code

Create a simple Scroll label for your App. ((Very simple))with 10 line of code

Rate Create a simple Scroll label for your App. ((Very simple))with 10 line of code

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'also a Picturebox with a Label In it
'label autosize = true
'and that is all...
'If you the Master Of VB make any Chages plese
'Let me know cause i'm a Rookie
'I use the scroll label to send Device status to an Automation Program 
' that i'm working on for my house Heating/Cooling and Appliance's
'I don't know if i'm right but every code I write I try to do it in plane 
'english then converted in VB Language is that OK... 
'Edgar Santiago 
'------------------------------------------------------------------------
Private Sub Form_Load()
Label1.left = -Picture1.left - Label1.Width

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Static left  As Long
' to chage speed chage the 5 to 10 or what ever you eant
left = left + 1 * 5 "<-------- Speed
Label1.Move -Picture1.left + left
Label3.Caption = "Label Move Left = " & left
If Label1.left = Picture1.Width Then
'Label1.Width = Picture1.ScaleLeft
left = -Picture1.left - Label1.Width
Label1.Move left
End If

End Sub