Эффект матрицы

Private Sub Timer1_Timer()
Dim i
  Cls
  For i = 1 To Chislo
    X = Int(Rnd * Me.Width): Y = Int(Rnd * Me.Height)
    Line (X, Y)-(X, Y + dstruyi), Cvet
  Next i
End Sub

Private Sub Timer1_Timer()
Dim i
Cls
For i = 1 To 10
  CurrentX = Rnd * Width
  CurrentY = Rnd * Height
  Print i And 1
Next i
End Sub

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

Dim x(1 To 10, 1 To 10) As Integer
Dim y(1 To 10) As Integer
 
Private Sub cmdexit_Click()
End
End Sub
 
Private Sub cmdstart_Click()
Timer1.Enabled = True
End Sub
 
Private Sub cmdstop_Click()
Form_Load
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 100
Picture1.ForeColor = vbGreen
Picture1.BackColor = vbBlack
Timer1.Enabled = False
Picture1.Cls
Picture1.Scale (1, 1)-(10.7, 10.7)
For i = 1 To 10
For j = 1 To 10
x(i, j) = 0
Picture1.CurrentX = j
Picture1.CurrentY = i
Picture1.Print x(i, j)
Next j
Next i
End Sub
 
Private Sub Timer1_Timer()
 
Picture1.Cls
For i = 1 To 10
y(i) = Rnd
Next i
For i = 10 To 2 Step -1
For j = 1 To 10
k = x(i, j)
x(i, j) = x(i - 1, j)
x(i - 1, j) = k
Next j
Next i
For j = 1 To 10
x(1, j) = y(i)
Next j
For i = 1 To 10
For j = 1 To 10
Picture1.CurrentX = j
Picture1.CurrentY = i
Picture1.Print x(i, j)
Next j
Next i
End Sub