Animation tutorial vb.net

Animation tutorial vb.net


Imports System.Drawing.Text
Imports System.Drawing.Drawing2D

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)......