Dim RandLi As Single
Dim RandO As Single
 
Private Sub Command1_Click()
 Line (RandLi, RandO)-Step(0, Text1)
 Line (RandLi, RandO + Text1)-Step(Text2, 0)
 Line (RandLi + Text2, RandO + Text1)-(RandLi, RandO)
End Sub
 
Private Sub Form_Load()
 Me.AutoRedraw = True
 Me.ScaleMode = 6
 RandLi = 10
 RandO = 10
 Text1 = 20
 Text2 = 30
End Sub