Public Class frmAnimation
    Dim WithEvents tim As New Timer With {.Interval = 50}
    Dim myEraser As New Drawing.Pen(Me.BackColor, 5)
    Dim g As Graphics
    Dim usePaint As Boolean
    Dim WithEvents btnPaint As New Button _
        With {.Text = "Use Paint", .Parent = Me, .Top = 10, .Left = 400}
 
    Private Sub btnPaint_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnPaint.Click
        usePaint = Not usePaint
    End Sub
 
    Private Sub frmAnimation_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DoubleBuffered = True
        tim.Enabled = True
        Me.Width = 500 : Me.Height = 600
        g = CreateGraphics()
        'g = Graphics.FromHwnd(Me.Handle)
    End Sub
 
    Private Sub tim_Tick(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles tim.Tick
        If usePaint Then
            Me.Refresh()
        Else
            AnimateRect(g, Color.Red)
        End If
    End Sub
 
    Private Sub frmAnimation_Paint(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        If usePaint Then AnimateRect(e.Graphics, Color.Blue)
    End Sub
 
    Private Sub AnimateRect(ByVal g As Graphics, ByVal c As Drawing.Color)
        Static rect As New Rectangle(5, 5, 30, 50)
        Dim myPen As New Drawing.Pen(c, 5)
        g.DrawRectangle(myEraser, rect)
        If rect.X > Me.Width - rect.Width - 10 Then
            rect.X = 5 : rect.Y = 5
        Else
            rect.X += 5 : rect.Y += 5
        End If
        g.DrawRectangle(myPen, rect)
        myPen.Dispose()
    End Sub
 
End Class