Орнамент из квадратов

Dim Div As Single
Private Function DrawSquare(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Boolean
    Dim L As Double
    Dim nX1 As Double, nY1 As Double, nX2 As Double, nY2 As Double
    Me.Line (x1, y1)-(x2, y2)
    Me.Line -Step(y1 - y2, x2 - x1)
    Me.Line -Step(x1 - x2, y1 - y2)
    Me.Line -Step(y2 - y1, x1 - x2)
    ' Находим длину
    L = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
    L = L * Div
    If L < 1 Then Exit Function
    ' Находим координаты
    nX1 = (x2 - x1) * Div + x1
    nY1 = (y2 - y1) * Div + y1
    nX2 = (x2 + y1 - y2 - x2) * Div + x2
    nY2 = (y2 + x2 - x1 - y2) * Div + y2
    If Not DrawSquare(nX1, nY1, nX2, nY2) Then Exit Function
    DrawSquare = True
End Function
Private Sub Form_Load()
    Me.AutoRedraw = True
    hsbScroll.Value = 500
End Sub
Private Sub hsbScroll_Change()
    Div = hsbScroll.Value / 1000
    Me.Cls
    DrawSquare 0, 0, Me.ScaleWidth, 0
    Me.Refresh
End Sub
Private Sub hsbScroll_Scroll()
    hsbScroll_Change
End Sub