'####################################################
'# Silvio Kunze AC05 http://laemmy.net January 2006 #
'#             v!5u@1 b@5!c !5 50 1@m3              #
'####################################################
'               _
'              | |
'              | |===( )   //////
'              |_|   |||  | o o|
'                     ||| ( c  )                  ____
'                      ||| \= /                  ||   \_
'                       ||||||                   ||     |
'                       ||||||                ...||__/|-"
'                       ||||||             __|________|__
'                         |||             |______________|
'                         |||             || ||      || ||
'                         |||             || ||      || ||
' ------------------------|||-------------||-||------||-||-------
'                         |__>            || ||      || ||


Option Explicit

Dim y As Integer
Dim x As Integer
Dim countloopX As Integer
Dim countloopY As Integer
Dim countX As Integer
Dim countY As Integer
Dim currY As Integer
Dim currX As Integer
Dim i As Integer
Private Sub Command1_Click()

Picture1.CurrentX = 150
Picture1.CurrentY = 80
Picture1.Print "y"

Picture1.CurrentX = 7400
Picture1.CurrentY = 5500
Picture1.Print "x"

Picture1.Line (300, 300)-(300, 5500)
Picture1.Line -(7700, 5500)
Picture1.Line (300, 300)-(400, 400)
Picture1.Line (300, 300)-(200, 400)

Picture1.Line (7550, 5500)-(7700, 5500)
Picture1.Line -(7600, 5400)
Picture1.Line (7700, 5500)-(7600, 5600)

y = 5500
x = 300
Picture1.Line (300, y)-(150, y)
Picture1.Line (x, 5500)-(x, 5650)
For i = 0 To 16
    y = y - 300
    x = x + 300
    Picture1.Line (300, y)-(225, y)
    Picture1.Line (x, 5500)-(x, 5600)
Next

End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()

Picture1.CurrentX = 50
Picture1.CurrentY = 5600
Picture1.Print 0

countY = 1
currY = 5150
Picture1.CurrentX = 0

For countloopY = 1 To 17
    Picture1.CurrentY = currY
    Picture1.Print countY
    countY = countY + 1
    currY = currY - 300
Next

countX = 1
currX = 500
For countloopX = 0 To 16
    Picture1.CurrentX = currX
    Picture1.CurrentY = 5600
    Picture1.Print countX
    countX = countX + 1
    currX = currX + 300
Next

End Sub