Private Sub Command1_Click()
Randomize
For N = 1 To 30
    Let X = Fix(Rnd * (Form1.ScaleWidth + 1))
    Let Y = Fix(Rnd * (Form1.ScaleHeight + 1))
    Let Z = 100 + Fix(Rnd * 201)
    Let C = Fix(Rnd * 16)
    Line (X, Y)-(X, Y + Z), QBColor(C)
Next N
End Sub

Private Sub Command2_Click()
End
End Sub