Code
Option Explicit
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte
Private Sub Form_Load()
Set form1.Picture = Nothing
Timer2.Interval = 3400
Timer2.Enabled = True
Timer1.Enabled = True
Timer1.Interval = 200
form1.Width = 5000
form1.Height = 4000
form1.BackColor = vbBlack
form1.ForeColor = vbGreen
End Sub
Private Sub Timer1_Timer()
Randomize
a = Rnd * 100
b = Rnd * 100
c = Rnd * 100
d = Rnd * 100
e = Rnd * 100
Print a, b, c, d, e
End Sub
Private Sub Timer2_Timer()
Cls
End Sub
Разместите Два Таймера
