Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 9
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■"
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print "■";
Picture1.FontSize = Int(20) + 1
Picture1.ForeC