Создать программу которая будет создавать финуру инь-янь - VB

Option Explicit
 
Private Sub Form_Paint()
    Me.FillStyle = vbSolid: Me.ScaleMode = vbPixels
    Me.FillColor = vbWhite: Me.Circle (100, 100), 100, vbBlack, -1.57, -4.71
    Me.FillColor = vbBlack: Me.Circle (100, 100), 100, vbBlack, -4.71, -1.57
    Me.FillColor = vbBlack: Me.Circle (100, 150), 50, vbBlack
    Me.FillColor = vbWhite: Me.Circle (100, 50), 50, vbWhite
    Me.FillColor = vbBlack: Me.Circle (100, 50), 18, vbBlack
    Me.FillColor = vbWhite: Me.Circle (100, 150), 18, vbBlack
End Sub