Private Function GetFieldIndex(ByVal x As Integer, ByVal y As Integer) As _
     Integer
      ' Errechnet den Index des Feldes (von links nach rechts)
      Return (Me.Width \ FieldSize.Width) * (GetLineFromField(y) - 1) + _
        GetColumnFromField(x) - 1
   End Function
 
   Private Function GetFieldPosition(ByVal x As Integer, ByVal y As Integer) As _
     Point
      ' Errechnet aus den X- und Y-Koordinaten die Zeilen- und Spaltennummer
      Return New Point(GetColumnFromField(x), GetLineFromField(y))
   End Function
 
   Private Function GetFieldRectangle(ByVal x As Integer, ByVal y As Integer) _
     As Rectangle
      ' Errechnet aus der X- und Y-Koordinate das entsprechende Rechteck
      Dim width As Integer = FieldSize.Width - 1
      Dim height As Integer = FieldSize.Height - 1
 
      Return New Rectangle((x \ FieldSize.Width) * FieldSize.Width, (y \ _
        FieldSize.Height) * FieldSize.Height, width, height)
   End Function
 
   Private Function GetFieldRectangle(ByVal FieldPosition As Point) As Rectangle
      ' Errechnet aus der Zeilen- und Spaltennummer das entsprechende Rechteck
      Dim width As Integer = FieldSize.Width - 1
      Dim height As Integer = FieldSize.Height - 1
 
      ' X und Y Koordinaten mit 1 subtrahieren, damit das Raster nicht 
      ' überzeichnet wird
      Return New Rectangle((FieldPosition.X - 1) * FieldSize.Width, ( _
        FieldPosition.Y - 1) * FieldSize.Height, width, height)
   End Function
 
   Private Function GetColumnFromField(ByVal x As Integer) As Integer
      ' Spalte berechnen und mit 1 addieren (verhindert null-basierte Spalte)
      Return x \ FieldSize.Width + 1
   End Function
 
   Private Function GetLineFromField(ByVal y As Integer) As Integer
      ' Zeile berechnen und mit 1 addieren (verhindert null-basierte Zeile)
      Return y \ FieldSize.Height + 1
   End Function
 
   Private Sub Field_Paint(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
      ' Berechne, wie viele vertikalen Linien gezeichnet werden können
      For i As Integer = 0 To Me.Width \ FieldSize.Width
         ' Vertikale Linie zeichnen
         e.Graphics.DrawLine(New Pen(pLineColor), i * FieldSize.Width - 1, 0, i _
           * FieldSize.Width - 1, Me.Height)
      Next
 
      ' Berechne, wie viele horizontalen Linien gezeichnet werden können
      For i As Integer = 0 To Me.Height \ FieldSize.Height
         ' Horizontale Linie zeichnen
         e.Graphics.DrawLine(New Pen(pLineColor), 0, i * FieldSize.Height - 1, _
           Me.Width, i * FieldSize.Height - 1)
      Next
 
      ' Anzahl der Einheiten (Felder) zeichnen
      For i As Integer = 0 To pUnits.Length - 1
         ' Rechteck zum ausfüllen berechnen und zeichnen
         e.Graphics.FillRectangle(New SolidBrush(pUnits(i).Color), _
           GetFieldRectangle(pUnits(i).Position))
      Next
   End Sub
 
   Private Sub Field_MouseClick(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
      ' Überprüfe, ob jede Einheit (Feld) im Array gezeichnet wurde
      If pUnitsSet < pUnits.Length Then
         ' Wenn nicht, dann die Position für nächste Einheit (Feld) festlegen
         pUnits(pUnitsSet).Position = GetFieldPosition(e.X, e.Y)
         ' Zähler um 1 erhöhen
         pUnitsSet += 1
 
         ' Zu zeichnendes Rechteck neuzeichnen lassen
         Me.Invalidate(New Region(GetFieldRectangle(e.X, e.Y)))
      End If
   End Sub

*1
[0] [1] [2] [4]
[5] [6] [7] [8]
 
oder
 
*2
[0] [2] [4] [6]
[1] [3] [5] [7]

      Dim leftArray As New List(Of Point)
      Dim leftWidth As Integer = CInt(Math.Ceiling(GetColumnFromField(Me.Width _
        - 2) / 2))
      Dim leftHeight As Integer = GetLineFromField(Me.Height - 2)
 
      For i As Integer = 0 To leftHeight
         For j As Integer = 0 To leftWidth
            leftArray.Add(New Point(i, j))
         Next
      Next
 
      For i As Integer = 0 To leftArray.Count - 1
         Debug.WriteLine(leftArray(i).ToString)
      Next