Private Sub Form_Load()
Me.Show
Scale (-15, 14)-(15, -14)
Circle (0, 0), 7
Circle (0, 0), 7, , , , 2.5
FillStyle = 7
Circle (0, 0), 7, vbRed, , , 0.4
End Sub