Menggambar dengan visual basic 6.0

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