Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim arField(9, 9) As MyGameField
        For y As Integer = 0 To 9
            For x As Integer = 0 To 9
                arField(x, y) = New MyGameField(x, y)
                Me.Controls.Add(arField(x, y))
            Next
        Next
 
    End Sub
 
 
    Public Class MyGameField
        Inherits Panel
 
        Public Sub New()
            MyBase.New()
 
            Me.Size = New Size(50, 50)
            m_Row = 0
            m_Column = 0
            Me.BackColor = System.Drawing.Color.Green
            Me.BorderStyle = BorderStyle.Fixed3D
        End Sub
 
        Public Sub New(ByVal Column As Integer, ByVal Row As Integer)
            Me.New()
 
            m_Row = Row
            m_Column = Column
 
            SetLocation()
        End Sub
 
        Private m_Row As Integer
        Public ReadOnly Property Row() As Integer
            Get
                Return m_Row
            End Get
        End Property
 
        Private m_Column As Integer
        Public ReadOnly Property Column() As Integer
            Get
                Return m_Column
            End Get
        End Property
 
        Private Sub SetLocation()
            Me.Location = New Point(m_Column * 50 + IIf(m_Row Mod 2, 25, 0), _
              m_Row * 50)
        End Sub
 
    End Class