Пропуск итераций в циклах в Visual Basic

Question

Я пытаюсь заставить этот цикл пропустить 20 пикселей, а затем нарисовать следующее поле. Я прекрасно рисую боксы так, как я их кодировал. Но я не могу понять, как заставить его пропускать пиксели. Я думаю, что это простое дополнение, но я не вижу этого. Я также гуглил другие для петель, но я не могу выбрать то, что мне не хватает, и я также прочитал несколько книг, которые у меня есть. вот что у меня есть:

Public Class Form1

    Const CellWidth As Integer = 50
    Const cellHeight As Integer = 50
    Const xOffset As Integer = -20
    Const yOffset As Integer = 25
    Private DEFAULT_BACKCOLOR As Color = Color.White

    Public Sub DrawBoard()      
        Dim location As New Point
        '---draws the boxes
        For row As Integer = 1 To 9
            For col As Integer = 1 To 9
                location.X = col * (CellWidth + 1) + xOffset
                location.Y = row * (cellHeight + 1) + yOffset
                Dim lbl As New Label
                With lbl
                    .Name = col.ToString() & row.ToString()
                    .BorderStyle = BorderStyle.Fixed3D
                    .Location = location
                    .Width = CellWidth
                    .Height = cellHeight
                    .TextAlign = ContentAlignment.MiddleCenter
                    .BackColor = DEFAULT_BACKCOLOR
                    .Font = New Font(.Font, .Font.Style Or FontStyle.Bold)
                    .Tag = "1"                   
                End With
                Me.Controls.Add(lbl)
            Next            
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DrawBoard()
    End Sub
End Class