How To Make Scrolling Graphics Effect In VB.NET

hello guys :) this is something very cool and it has been created using pure graphics(2ddrawing) in vb.net . first of all i want to say you don't need work harder to understand the codes because this is created in a very simple format . ok now you see the image in the top of this post and that's how this animation works . you can add more graphics to it if your in to themebase vb.net . first you need to add a timer and i recommend you to make the form border style none for better play .

 here is the codes

Imports System.Drawing.Drawing2D
Public Class Form1

    'Author : Mohamed Shimran
    'Blog : http://www.ultimateprogrammingtutorials.blogspot.com

    Dim g As Graphics = Me.CreateGraphics
    Dim offsetvalue As Integer = 150
    Dim x, y, cx, cy As Integer
    Dim randd As New Random
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Start()
        rota = 10
        x = randd.Next(0, Me.Width)
        y = randd.Next(0, Me.Height)
        cx = randd.Next(5, 10)
        cy = randd.Next(5, 10)
    End Sub
    Dim rota As Integer
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        g.Clear(Color.Green)
        Static angle As Integer
        x += cx
        y += cy
        If x > Me.Width - 150 Then
            cx = -cx
        ElseIf x < 0 Then
            cx = -cx
        End If
        If y > Me.Height - 150 Then
            cy = -cy
        ElseIf y < 0 Then
            cy = -cy
        End If
        Dim G_path As GraphicsPath = New GraphicsPath()
        Dim rectangle As RectangleF = New RectangleF(x, y, 200, 100)
        Dim str_format As StringFormat = New StringFormat()
        str_format.Alignment = StringAlignment.Center
        str_format.LineAlignment = StringAlignment.Center
        G_path.AddRectangle(rectangle)
        G_path.AddString("Ultimate programming tutorials", Me.Font.FontFamily, CInt(Me.Font.Style), Me.Font.Height + 15, rectangle, str_format)
        angle += rota
        If angle > 360 Then
            rota = -rota

        ElseIf angle < 0 Then
            rota = -rota
        End If
        g.DrawPath(New Pen(Brushes.Black, 4), G_path)
        g.FillPath(Brushes.Azure, G_path)
        Dim matrix As Matrix = New Matrix()
        matrix.Translate(0, 0)
        matrix.RotateAt(angle, New PointF(Me.Width / 2 + (50), Me.Height / 2 - (50 / 2)))
        G_path.Transform(matrix)
        g.DrawPath(New Pen(Brushes.White, 4), G_path)
        g.FillPath(Brushes.Black, G_path)
        g.DrawPath(Pens.Black, G_path)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Invalidate()
    End Sub
End Class

don't do anything for the timer . just tweak the codes for your need and enjoy .