Free download this tutorial link below
Public Class Form1
Protected currentGradientShift As Integer = 10
Protected gradiantStep As Integer = 5
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim grfx As Graphics = CreateGraphics()
Dim font As New Font("Microsoft Sans Serif", 25, _
FontStyle.Bold, GraphicsUnit.Point)
Dim strText As String = "www.vbsourcecodef.blogspot.com"
Dim sizfText As New SizeF(grfx.MeasureString(strText, font))
Dim ptfTextStart As New PointF(CSng(ClientSize.Width - sizfText.Width) / 2, CSng(ClientSize.Height - sizfText.Height) / 2)
Dim ptfGradientStart As New PointF(0, 0)
Dim ptfGradientEnd As New PointF(currentGradientShift, 200)
Dim grBrush As New LinearGradientBrush(ptfGradientStart, ptfGradientEnd, Color.Blue, BackColor)
grfx.DrawString(strText, font, grBrush, ptfTextStart)
grfx.Dispose()
currentGradientShift += gradiantStep
If currentGradientShift = 500 Then
gradiantStep = -5
ElseIf currentGradientShift = -50 Then
gradiantStep = 5
End If
End Sub
End Class
