Private FieldPosition As Point = New Point(10, 10)
    Private FieldSize As Size = New Size(20, 20)
    Private FieldsX As Integer = 10
    Private FieldsY As Integer = 10
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim x As Integer, y As Integer
        Dim P As New Pen(Color.Black)
        Dim R As Rectangle
 
        For x = 1 To FieldsX
            For y = 1 To FieldsY
                R = New Rectangle(FieldPosition.X + (x - 1) * FieldSize.Width, _
                  FieldPosition.Y + (y - 1) * FieldSize.Height, _
                  FieldSize.Width, FieldSize.Height)
                e.Graphics.DrawRectangle(P, R)
            Next
        Next
 
        P.Dispose()
    End Sub