Option Explicit
 
Private Sub Form_Load()
    Font.Name = "Lucida Console"
    BackColor = vbBlack
    Timer1.Interval = 50
End Sub
 
Private Sub Timer1_Timer()
    Static p As Long, l As Long
    
    Cls
       
    Do While CurrentY < ScaleHeight
        Do While CurrentX < ScaleWidth
            Rnd -Sqr(CurrentX) * CurrentY + l ' -l
            ForeColor = RGB(0, Rnd * 255, 0)
            Print Int(Rnd * 10);
        Loop
        Print: l = l - 1
    Loop
  
    p = p + 1: l = p
    
End Sub