[VB] Membuat 2 Text Marquee Bolak-Balik

Deklarasi:
1 Form
1 CommandButton
1 Timer
3 Label

Private Sub Command1_Click()
    Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Timer1_Timer()
    Static mar1Move, mar2Move As Boolean
    'Bagian Mengatur Marquee1
    'Jika mar1Move=True maka Marquee1 akan berjalan ke kiri
    'Jika mar1Move=False maka Marquee1 akan berjalan ke kanan
    If mar1Move Then
        Label2.Move Label2.Left - 100
        If Label2.Left < -Label2.Width Then mar1Move = False
        Debug.Print mar1Move
    Else
        Label2.Move Label2.Left + 100
        If Label2.Left > (Me.ScaleWidth) Then mar1Move = True
    End If
    
    'Bagian mengatur Marquee2
    'Jika mar2Move=True maka Marquee2 akan berjalan ke kanan
    'Jika mar2Move=False maka Marquee2 akan berjalan ke kiri
    If mar2Move Then
        Label3.Move Label3.Left + 100
        If Label3.Left > (Me.ScaleWidth) Then mar2Move = False
    Else
        Label3.Move Label3.Left - 100
        If Label3.Left < -Label3.Width Then mar2Move = True
        Debug.Print mar2Move
    End If
End Sub

Jangan Lupa Komentar Yaa..