Pemrograman Visual:Teks berjalan

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
        lblPesan.Left = lblPesan.Left + 1
        If lblPesan.Left > Me.Width Then lblPesan.Left = -lblPesan.Width
        lblPosisi.Text = lblPesan.Left
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
        lblPesan.Text = TextBox1.Text
    End Sub

    Private Sub btnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
        Timer1.Enabled = True
    End Sub

    Private Sub btnOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
        Timer1.Enabled = False
    End Sub 
End Class