Marquee Tag in vb6

here i am post Marquee Tag vb 6.0 code like a marquee tag in html. try this

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left > 13000 Then
    Label1.Left = 0
End If
End Sub