Вывести на экран изображение веера

Option Explicit
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     Static rw As Single
     If KeyCode = 65 And rw < 0.25 Then rw = rw + 0.01
     If KeyCode = 83 And rw > -0.1 Then rw = rw - 0.01
     Draw rw
End Sub
 
Private Sub Form_Load()
    Me.ScaleMode = 3: Me.AutoRedraw = True: Me.DrawWidth = 3
    Me.Scale (-150, 150)-(150, -50)
    Me.KeyPreview = True
    Call Draw
End Sub
 
Private Sub Draw(Optional ByVal rw As Single = 0)
    Dim i As Single, x1 As Single, y1 As Single, x2 As Single, y2 As Single
    Dim r As Integer, min As Single, max As Single, stepW As Single
    Const PI As Single = 3.14159
    r = 140 '
    Cls
    min = PI * (1.7 + rw): max = PI * (2.3 - rw): stepW = Abs(min - max) / 20
    For i = min To max Step stepW
        x1 = Sin(i) * r: y1 = Cos(i) * r
        Me.Line (0, 0)-(x1, y1), vbBlue
        Me.Line (x1, y1)-(x2, y2), vbBlue
        x2 = x1: y2 = y1
        Me.Line (0, 0)-(Sin(i - PI) * (r / 8), Cos(i - PI) * (r / 8)), vbBlue
    Next i
End Sub

Option Explicit
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     Static rw As Single
     If KeyCode = 65 And rw < 0.25 Then rw = rw + 0.01
     If KeyCode = 83 And rw > -0.1 Then rw = rw - 0.01
     Draw rw
End Sub
 
Private Sub Form_Load()
    Me.ScaleMode = 3: Me.AutoRedraw = True: Me.DrawWidth = 3
    Me.Scale (-150, 150)-(150, -50)
    Me.KeyPreview = True
    Call Draw
End Sub
 
Private Sub Draw(Optional ByVal rw As Single = 0)
    Dim i As Single, j As Single, x As Single, y As Single
    Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
    Dim r As Integer, min As Single, max As Single, stepW As Single
    Const PI As Single = 3.14159
    r = 140 '
    Cls
    min = PI * (1.7 + rw): max = PI * (2.3 - rw): stepW = Abs(min - max) / 20
    Me.DrawWidth = 6
    For i = min To max Step stepW / 7
            x = Sin(i) * r: y = Cos(i) * r
            Me.Line (0, 0)-(x, y), vbMagenta
    Next i
    Me.DrawWidth = 3
    For i = min To max Step stepW - 0.00001
        x1 = Sin(i) * r: y1 = Cos(i) * r
        Me.Line (0, 0)-(x1, y1), vbBlue
        Me.Line (x1, y1)-(x2, y2), vbBlue
        If i > min Then Circle ((Sin(i) * (r - 20) + x2) / 2, (Cos(i) * (r - 20) + y2) / 2), 3, vbGreen
        x2 = x1: y2 = y1
        Me.Line (0, 0)-(Sin(i - PI) * (r / 8), Cos(i - PI) * (r / 8)), vbBlue
    Next i
End Sub

Option Explicit
 
Dim angle As Single
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    angle = angle + Switch(KeyCode = vbKeyUp, 0.1, KeyCode = vbKeyDown, -0.1, True, 0)
    If angle > 2.5 Then angle = 2.5 Else If angle < 0.001 Then angle = 0.001
    Draw
End Sub
 
Private Sub Form_Load()
    Width = 5000: Height = 5000: FillColor = vbMagenta: FillStyle = vbSolid
    AutoRedraw = True: angle = 2: Draw
End Sub
 
Private Sub Draw()
    Dim dif  As Single, str As Single, n As Long
    dif = angle / 5: str = 1.57 - angle / 2: Cls
    For n = 0 To 4
        Circle (ScaleWidth / 2, ScaleHeight / 1.5), 2000, , -str, -str - dif
        Circle (ScaleWidth / 2, ScaleHeight / 1.5), 300, , -str - 3.14, -str - dif - 3.14
        str = str + dif
    Next
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static oy As Single
    If Button = vbLeftButton Then Form_KeyDown Switch(Y - oy > 0, vbKeyDown, Y - oy < 0, vbKeyUp, True, 0), 0
    oy = Y
End Sub