Public Class Form1
    Dim feld(9, 9) As Int32
    Dim ilist As New ImageList
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim rnd As New Random
        For y As Int32 = 0 To 9
            For x As Int32 = 0 To 9
                feld(y, x) = rnd.Next(2)
            Next
        Next
        PictureBox1.Refresh()
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        For y As Int32 = 0 To 10
            For x As Int32 = 0 To 10
                e.Graphics.DrawLine(Pens.Black, 0, y * 40, 400, y * 40)
                e.Graphics.DrawLine(Pens.Black, x * 40, 0, x * 40, 400)
            Next
        Next
        For y As Int32 = 0 To 9
            For x As Int32 = 0 To 9
                e.Graphics.DrawLine(Pens.Black, x * 40, y * 40, 400, y * 40)
                e.Graphics.DrawImage(ilist.Images(feld(y, x)), 5 + x * 40, 5 + _
                  y * 40)
            Next
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(50, 50, 430, 450)
        PictureBox1.BackColor = Color.Aqua
        PictureBox1.SetBounds(10, 10, 401, 401)
        ilist.ImageSize = New Size(32, 32)
        ilist.Images.Add(SystemIcons.Error.ToBitmap)
        ilist.Images.Add(SystemIcons.Warning.ToBitmap)
    End Sub
End Class