What I have for lines 710 to 890
Code:
Private Sub cmdDraw_Click()
Dim I As Single
Dim J As Single
Dim X1 As Single
Dim X2 As Single
Dim Y1 As Single
Dim Y2 As Single
Dim lngC As Long
Dim C As Long
pic.ScaleMode = 3
pic.Width = 12000
pic.Height = 4700
For I = 0 To 100
    lngC = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
    pic.Line (320, 90)-(310, 99), lngC
    pic.Line (310, 99)-(300, 100), lngC
    pic.Line (300, 100)-(310, 101), lngC
    pic.Line (310, 101)-(320, 110), lngC
    pic.Line (320, 110)-(322, 101), lngC
    pic.Line (322, 101)-(340, 100), lngC
    pic.Line (340, 100)-(322, 99), lngC
    pic.Line (322, 99)-(320, 90), lngC
Next I
For I = 101 To 309
    J = I / 3.3
    pic.Line (319 - I, 99 - J)-(320 + I, 100 + J), , B
Next I
For I = 0 To 100
    lngC = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
    pic.Line (320, 90)-(310, 99), lngC
    pic.Line (310, 99)-(300, 100), lngC
    pic.Line (300, 100)-(310, 101), lngC
    pic.Line (310, 101)-(320, 110), lngC
    pic.Line (320, 110)-(322, 101), lngC
    pic.Line (322, 101)-(340, 100), lngC
    pic.Line (340, 100)-(322, 99), lngC
    pic.Line (322, 99)-(320, 90), lngC
Next I
'
' All variables defined as Single except 'C' which is Long
'
For J = 1 To 100
    I = 3.2 * J
    'C = Rnd * 16 + 1
    C = RGB(CLng(255 * Rnd), CLng(255 * Rnd), CLng(255 * Rnd))
    X1 = (320 - I) + Rnd * I
    X2 = Rnd * I + 319
    Y1 = (100 - J) + Rnd * J
    Y2 = Rnd * J + 99
    pic.PSet (X1, Y1), C
    pic.PSet (X2, Y2), C
    pic.PSet (X1, Y2), C
    pic.PSet (X2, Y1), C
Next J
End Sub

Private Sub Form_Load()
Randomize
End Sub
I suspect there should be some sort of 'delay' or 'refresh' as I suspect the inner 'box' should flash or something. The outer 'I' loops look redundant unless the processor this was running on was 'really' slow (which by today's standards it probably was)