Нарисовать дом с окном

Option Explicit
Dim w As Integer, h As Integer ' размеры дома
Dim m As Integer, n As Integer ' размеры кирпичей
Dim i As Integer, j As Integer ' счетчики
Dim q As Integer                ' верхний отступ
Dim x1 As Integer, x2 As Integer ' Х координаты окна
Dim y1 As Integer, y2 As Integer ' У координаты окна
 
Private Sub Form_Load()
    m = 400: n = 200
    q = 1500
    w = 11: h = 11
    x1 = 5: x2 = 7
    y1 = 4: y2 = 6
    Me.Width = (w + 2) * m
    Me.Height = (h + 3) * 2 * n + q
End Sub
 
Private Sub Form_Paint()
    For i = 1 To w
        For j = 1 To h
        If (i >= x1 And i <= x2 And j >= y1 And j <= y2) Then
        Else
            Blok i * m, q + j * 2 * n
        End If
        Next
    Next
    Line (m, 2 * n + q)-(m, n * ((h + 1) * 2) + q), &HFF
    Line (m * (w + 1), 2 * n + q)-(m * (w + 1), n * ((h + 1) * 2) + q), &HFF
    Okno x1 * m, q + y1 * 2 * n
End Sub
 
Private Sub Blok(x As Integer, y As Integer)
    Line (x, y)-(x + m, y), &HFF
    Line (x, y + n)-(x + m, y + n), &HFF
    Line (x, y + 2 * n)-(x + m, y + 2 * n), &HFF
    Line (x, y)-(x, y + n), &HFF
    Line (x + m, y)-(x + m, y + n), &HFF
    Line (x + CInt(m / 2), y + n)-(x + CInt(m / 2), y + 2 * n), &HFF
End Sub
 
Private Sub Okno(x As Integer, y As Integer)
    Dim tx As Integer, ty As Integer
    tx = x2 - x1 + 1
    ty = (y2 - y1 + 1) * 2
    Line (x, y)-(x + tx * m, y), &HFF00
    Line (x, y)-(x, y + ty * n), &HFF00
    Line (x + tx * m, y)-(x + tx * m, y + ty * n), &HFF00
    Line (x, y + ty * n)-(x + tx * m, y + ty * n), &HFF00
End Sub