Private Sub Command1_Click()
Picture1.BackColor = QBColor(7)
Picture1.Scale (0, 300)-(300, 0)
Picture1.DrawWidth = 2
Picture1.FillStyle = 0
Picture1.FillColor = QBColor(15)
Picture1.Circle (150, 220), 30, QBColor(15)
Picture1.Line (125, 240)-(175, 240), vbWhite
Picture1.Line (125, 240)-(115, 290), vbWhite
Picture1.Line (175, 240)-(115, 290), vbWhite
Picture1.FillColor = QBColor(0)
Picture1.Circle (115, 290), 12, QBColor(0)
Picture1.Circle (140, 225), 5, vbBlack, 3.14, 0
Picture1.Circle (160, 225), 5, vbBlack, 3.14, 0
Picture1.Circle (140, 214), 2, vbBlue, , , 2
Picture1.Circle (160, 217), 2, vbBlue, , , 2
Picture1.Circle (160, 208), 2, vbBlue, , , 2
Picture1.Circle (140, 205), 2, vbBlue, , , 2
Picture1.Line (180, 195)-(120, 90), vbWhite, BF
Picture1.Circle (150, 180), 10, vbBlack
Picture1.Circle (150, 155), 10, vbBlack
Picture1.Circle (150, 130), 10, vbBlack
Picture1.Line (120, 195)-(50, 90), vbWhite
Picture1.Line (120, 195)-(110, 90), vbWhite
Picture1.Line (50, 90)-(110, 90), vbWhite
Picture1.Line (180, 195)-(250, 90), vbWhite
Picture1.Line (180, 195)-(190, 90), vbWhite
Picture1.Line (250, 90)-(190, 90), vbWhite
Picture1.Circle (90, 110), 10, vbBlack
Picture1.Circle (210, 110), 10, vbBlack
Picture1.Line (160, 90)-(120, 30), vbWhite, BF
Picture1.Line (180, 90)-(160, 30), vbWhite, BF
Picture1.Line (120, 90)-(180, 90), vbBlack
Picture1.Line (150, 90)-(150, 30), vbBlack
Picture1.FillColor = QBColor(15)
Picture1.Circle (135, 30), 15, vbWhite, , , 0.5
Picture1.Circle (165, 30), 15, vbWhite, , , 0.5
Picture1.Line (150, 30)-(135, 30), vbBlack
Picture1.Line (120, 30)-(180, 30), vbBlack
Picture1.FillColor = QBColor(0)
Picture1.Circle (135, 20), 8, vbBlack
Picture1.Circle (165, 20), 8, vbBlack
End Sub
 

Сайт управляется системой uCoz