Imports System.Drawing.Drawing2D
Public Class Form1
    Dim bmp As New Bitmap(70, 100)
    Dim bild As New Bitmap(600, 600)
    Dim g As Graphics = Graphics.FromImage(bmp)
    Dim bg As Graphics = Graphics.FromImage(bild)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(630, 650)
        Dim re As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height)
        Dim lb1 As LinearGradientBrush = New LinearGradientBrush(re, Color.Red, _
          Color.Yellow, LinearGradientMode.Vertical)
        g.FillRectangle(lb1, re)
        g.DrawRectangle(New Pen(Color.Blue, 4), re)
        bg.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
        PictureBox1.Bounds = New Rectangle(10, 10, 600, 600)
        PictureBox1.BackColor = Color.Black
        PictureBox1.Image = bild
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        bg.Clear(Color.Black)
        Dim rnd As New Random
        For j As Int32 = 20 To 480 Step 120
            For i As Int32 = 20 To 500 Step 40
                bg.DrawImage(bmp, i + 4, -8 + j + (i \ 5))
                bg.DrawString(Chr(rnd.Next(65, 90)), New Font("Courier New", _
                  60, FontStyle.Bold), Brushes.Black, i, j + i \ 5)
            Next
        Next
        PictureBox1.Refresh()
    End Sub
End Class