Visual Basic Visual Basic 6: como desenhar vários quadrados deixando 1 espaço entre eles?

[Cambalinho]

imagine que temos 1 array de 8X8 de quadrados e cada quadrado tem 64 de tamanho e quer 2 pixels de espaço entre eles.
agora como posso desenhar esses quadrados com espaço?

Private Sub DrawMap()
    Dim X As Integer
    Dim Y As Integer
    Dim X0 As Integer
    Dim Y0 As Integer
    Dim Spaces As Integer
    
    'MapResolution=64
    'LevelMapHeight and LevelMapWidth are 8
    
    Spaces = 5
    
    For Y = 0 To LevelMapHeight - 1
        For X = 0 To LevelMapWidth - 1
            X0 = X * MapResolution
            Y0 = Y * MapResolution
            'Line Method:
            'Line(X0,Y0) - (X1,Y2), côr
            'Square Method:
            'Line(X0,Y0) - (X1,Y2), côr, BF
            'X0 e Y0 é o ponto superior esquerdo e X1, Y1 é ponto inferior direito
            If (LevelMap(Y)(X) = 0) Then
                Me.Line (X0 + Spaces, Y0 + Spaces - 1)-(X0 + MapResolution - Spaces, Y0 + MapResolution - Spaces - 1), vbBlack, BF
            Else
                Me.Line (X0 + Spaces, Y0 + Spaces - 1)-(X0 + MapResolution - Spaces, Y0 + MapResolution - Spaces - 1), vbWhite, BF
            End If
        Next X
    Next Y

o meu problema é não ter o mesmo espaço entre os quadrados e vejo isso na altura :(

como posso resolver esse bug?