frmGradient.vb

 Imports System.Drawing.Drawing2D
Friend Class frmGradient
  
    Dim i As Integer = Me.Left
    Dim str As String = "My name is Arindam Ghosh/Address Shitalatala Road/Dakshinpara /Barasat/Kol-700124/"
    Dim str1(3) As String
    Dim count As Integer = 0

    Dim k As Integer = +10
    Public Sub drawrectangle()
        Dim gr As Graphics = CreateGraphics()
        Dim gradient As New LinearGradientBrush(New Point(Me.Left, Me.Top), New Point(Me.Width, Me.Top), Color.Blue, Color.White)
        gr.FillRectangle(gradient, ClientRectangle)
    End Sub

    Public Sub writestring()
        Dim gr As Graphics = pcb.CreateGraphics()
        gr.Clear(pcb.BackColor)
        Dim font As New Font("Vardana", 15, FontStyle.Italic, GraphicsUnit.Point)
        gr.DrawString(str, font, Brushes.Blue, New Point(i, Me.Top))
    End Sub
    Private Sub frmGradient_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Application.Exit()
    End Sub
    Private Sub frmGradient_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        drawrectangle()
        str1(0) = "                                                                                                                                                  Arindam's Windows form With Gradient affect"
        str1(1) = "                                                                                                                                                  Developed By Arindam Ghosh"
        str1(2) = "                                                                                                                                                  Mail me at (ghosh315@gmail.com)"
    End Sub

    Private Sub tmrgr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrgr.Tick
        writestring()
        If i >= Me.Width Then
            k = -10
        ElseIf i < Me.Left Then
            k = +10
        End If
        i = i + k
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCount.Tick
        If count > 2 Then
            count = 0
        End If
        Me.Text = str1(count)
        count = count + 1
    End Sub
End Class

Project Homepage: