Public Class frmPicClick
 
    Dim WithEvents pbox As New PictureBox _
            With {.Parent = Me, .Dock = DockStyle.Fill}
 
    Dim bmp As New Bitmap(400, 400, Imaging.PixelFormat.Format24bppRgb)
 
    Dim framesize As Integer = bmp.Width \ 10
 
 
 
    Private Sub frmPicClick_Load(sender As System.Object, _
                        e As System.EventArgs) Handles MyBase.Load
 
        Using gr As Graphics = Graphics.FromImage(bmp)
            For i As Integer = 0 To bmp.Width Step framesize
                For k As Integer = 0 To bmp.Height Step framesize
 
                    Using frame As New Bitmap(framesize, framesize), _
                        grf As Graphics = Graphics.FromImage(frame)
 
                        'Frame zeichnen (Hintergrundfarbe) 
                        grf.Clear _
                          (Color.FromArgb(i \ 2, k \ 2, Math.Abs(i - k) \ 4))
 
                        'Frame in Gesamtbild eintragen
                        gr.DrawImage(frame, i, k)
                    End Using
 
                Next k
            Next i
        End Using
 
        pbox.Image = bmp
    End Sub
 
 
    Private Sub pBox_MouseClick(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles pbox.MouseClick
 
        Me.Text = "Feld: " & _
          (CStr(e.X \ framesize) & "  " & CStr(e.Y \ framesize))
 
    End Sub
 
End Class