Как прорисовать? - VB

Private Sub Option1_Click(Index As Integer)
    Draw Index
End Sub
 
Sub Draw(ByVal n As Integer)
    Cls
    Me.AutoRedraw = True: Me.Scale (0, 20)-(60, -20): Me.DrawWidth = 10: Me.ForeColor = vbBlue
    Circle (20, 0), 10, , 1.2, 5, 1.5
    Line (40, -13)-(40, 13): Line (50, -13)-(50, 13): Line (40, 0)-(50, 0)
    Select Case n
       Case 0
          Circle (30, 0), 10, , , , 1.5
       Case 1
         Line (25, -13)-(25, 13): Line (35, -13)-(35, 13)
         Circle (27, -5), 6, , 4.4, 1.9, 1.2
    End Select
End Sub