Visual Basic 1 code?

[Niya]

Looking at line 720 and assuming that 'CONNECT' connects all the points (x,y) - (x1,y1) etc

Private Sub cmdDraw_Click()
pic.ScaleMode = 3
pic.Width = 12000
pic.Height = 4700
pic.Line (320, 90)-(310, 99)
pic.Line (310, 99)-(300, 100)
pic.Line (300, 100)-(310, 101)
pic.Line (310, 101)-(320, 110)
pic.Line (320, 110)-(322, 101)
pic.Line (322, 101)-(340, 100)
pic.Line (340, 100)-(322, 99)
pic.Line (322, 99)-(320, 90)
End Sub

creates an interesting shape in the PictureBox 'pic'. I'm guessing that the 'J' loop and 'C=RND16+1' is to change the Colour

Yea, it does:-