Нарисовать фрактальный объект, используя рекурсию - VB

Option Explicit
 
Private Sub Form_Load()
    AutoRedraw = True: FillStyle = vbSolid: FillColor = vbWhite: Move 0, 0, Screen.Width, Screen.Height
    Draw ScaleWidth \ 2, ScaleHeight \ 2, ScaleWidth \ 8, ScaleHeight \ 8
End Sub
Private Sub Draw(ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long)
    Dim nw  As Long, nh As Long
    If w > Screen.TwipsPerPixelX * 2 And h > Screen.TwipsPerPixelY * 2 Then
        nw = w / 2: nh = h / 2
        Draw x - (nw + w) / 2, y, nw, nh
        Draw x + (nw + w) / 2, y, nw, nh
        Draw x, y - (nh + h) / 2, nw, nh
        Draw x, y + (nh + h) / 2, nw, nh
    End If
    Me.Line (x - w / 2, y - h / 2)-Step(w, h), , B
End Sub