VB.NET MOVING TEXT/CHANGE FONT COLOR AND BACKGROUND ALSO CHANGE FONT STYLE

 HI THERE,IM HERE TO SHOW AND SHARE A LITTLE CODES ON HOW LABEL TEXT RUNNING IN YOUR PROJECT FORM.

ALSO ON THIS CODES INCLUDING CHANGE FONT COLOR AND BACKGROUND AND ALSO YOU CAN CHANGE FONT STYLE.

CODES:

Public Class Form1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Static i As Integer = 721

        lblText.SetBounds(i, 47, 223, 45)

        i = i - 1

        If i = -2000 Then

            i = 721

        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Start()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        lblText.Text = TextBox1.Text

    End Sub

    Private Sub TextColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextColorToolStripMenuItem.Click

        ColorDialog1.ShowDialog()

        lblText.ForeColor = ColorDialog1.Color

    End Sub

    Private Sub BackgroundColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BackgroundColorToolStripMenuItem.Click

        ColorDialog2.ShowDialog()

        Me.BackColor = ColorDialog2.Color

    End Sub

    Private Sub FontChangeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontChangeToolStripMenuItem.Click

        FontDialog1.ShowDialog()

        lblText.Font = FontDialog1.Font

    End Sub

End Class

PLEASE DONT FORGET TO CLICK ANY LINK ADVERTISE HERE TO SHOW YOUR SUPPORT MY WEBSITE AND PLEASE SUBSCRIBE/LIKE AND SHARE MY LITTLE CHANNEL TO GET UPDATE ON PROGRAMMING.

FOR SOMEONE WANT TO SEND A LITTLE DONATION,HERE IS MY GCASH:

09755 907 279

THANKS!