Private
Sub Form_Click()
Scale
(0, 170)-(100, 0)
Circle
(50, 120), 10
Circle
(45, 125), 2
Circle
(45, 125), 0.75
Circle
(55, 125), 2
Circle
(55, 125), 0.75
Circle
(61, 120), 1
Circle
(39, 120), 1
Line
(43, 145)-(57, 145), vbBlue
Line
(40, 155)-(60, 155), vbBlue
Line
(41, 155)-(41, 150), vbBlack
Line
(43, 145)-(57, 155), , BF
Line
(47.5, 107.5)-(52.5, 108.5), vbBlack, BF
Line
(46.5, 103)-(53.5, 103)
Line
(47.5, 100)-(52.5, 100)
Line
(47.5, 114)-(52.5, 114)
Line
(47.5, 114)-(50, 125.5)
Line
(52.5, 114)-(50, 125.5)
Circle
(15, 120), 10
Circle
(10, 125), 2
Circle
(10, 125), 0.75
Circle
(20, 125), 2
Circle
(20, 125), 0.75
Circle
(26, 120), 1
Circle
(4, 120), 1
Circle
(26, 115), 1
Circle
(4, 115), 1
Line (8,
145)-(20, 145)
Line (5,
155)-(25, 155)
Line (6,
155)-(6, 150)
Line (8,
145)-(22, 155), , BF
'Line
(47.5, 107.5)-(52.5, 108.5), vbBlack, BF
Line
(12.5, 103)-(17.5, 103)
Line
(13.5, 100)-(16.5, 100)
Line
(12.5, 114)-(17.5, 114)
Line
(12.5, 114)-(15, 125.5)
Line
(17.5, 114)-(15, 125.5)
'Line
(15, 85)-(20, 85), vbBlack, BF
End Sub
