Private Sub Form_Load()
If Form1.WindowState = vbMinimized Then Exit Sub
Form1.BackColor = vbBlack
Form1.ScaleHeight = 100
Form1.ScaleWidth = 100
For X = 0 To 300
DoEvents
X1 = Int(Rnd * 101)
X2 = Int(Rnd * 101)
Y1 = Int(Rnd * 101)
Y2 = Int(Rnd * 101)
colors = Int(Rnd * 15)
Form1.Line (X1, Y1)-(X2, Y2), QBColor(colors)
Form1.Line (X1, Y2)-(X2, Y1), QBColor(colors)
Form1.Line (X2, Y1)-(X1, Y2), QBColor(colors)
Form1.Line (Y1, Y2)-(X1, X2), QBColor(colors)
Next X
End Sub