ActiveX Control

Option Explicit
 
Private Const pi = 3.14159265358979
 
Private Sub Form_Load()
    Dim i As Long, d As Single, x As Single, y As Single, _
        ox As Single, oy As Single, dx As Single, dy As Single, _
        a As Single, s As Single, e As Single
    
    Me.AutoRedraw = True: Me.ScaleMode = vbPixels
    Me.Move (Screen.Width - 5000) \ 2, (Screen.Height - 5000) \ 2, 5000, 5000
 
    d = pi * 1.5 / 10
    ox = Me.ScaleWidth / 2: oy = Me.ScaleHeight / 2
    dx = ox - 50: dy = oy - 50
    a = pi * 0.25
    
    Me.FillStyle = vbSolid: Me.DrawStyle = 5
    For i = 0 To 9
        Me.FillColor = QBColor(Rnd * 15)
        s = a: e = a - d
        If s > 0 Then s = s - 2 * pi
        If e > 0 Then e = e - 2 * pi
        Me.Circle (ox, oy), ox, , s, e, dy / dx
        a = a - d
    Next
    Me.DrawStyle = 0: Me.FillColor = QBColor(15)
    Me.Circle (ox, oy), dx, , , , dy / dx
    a = pi * 0.25
    For i = 0 To 10
        x = -Cos(a): y = Sin(a)
        Me.Line (x * dx + ox, y * dy + oy)-(x * (dx - 10) + ox, y * (dy - 10) + oy)
        a = a - d
    Next
End Sub