Imports System.Drawing.Drawing2D
Public Class Form1
    Private WithEvents T As New Timer With {.Interval = 20, .Enabled = True}
    Private fo As New Font("Times New Roman", 32)
    Private angle As Int32
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.DoubleBuffered = True
        Me.BackColor = Color.Black
        Me.ClientSize = New Size(240, 240)
    End Sub
 
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T.Tick
        angle += 3
        Me.Invalidate()
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim m As New Matrix
        For y As Int32 = 1 To 5
            For x As Int32 = 1 To 5
                m.RotateAt(angle, New Point(24 + x * 32, 24 + y * 32))
                e.Graphics.Transform = m
                e.Graphics.TextRenderingHint = _
                  Drawing.Text.TextRenderingHint.AntiAlias
                e.Graphics.DrawString("G", fo, Brushes.Yellow, x * 32, y * 32)
                m.Reset()
            Next
        Next
    End Sub
End Class