Dim m(1 To 22) As String
Dim j As Integer
Private Sub Form_Load()
Randomize
For j = 1 To 22
m(j) = Int(Rnd * 2)
Text1.Text = m(j)
Next j
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Timer1.Enabled = False
Text1.MaxLength = 20
Text1.Text = " Neo matrix has you !"
If MsgBox("Vuoi uscire?", vbInformation + vbYesNo, "esci") = vbNo Then
Cancel = True
Text1.MaxLength = 0
Timer1.Enabled = True
Else
End
End If
End Sub
Private Sub Timer1_Timer()
Text1.MaxLength = Text1.MaxLength + 1
Randomize
Timer1.Interval = Int(Rnd * 200)
If Len(Text1.Text) <= Int(Rnd * 30) + 1 Then
For j = 1 To 22
m(j) = Int(Rnd * 2)
Text1.Text = Text1.Text & m(j)
Next j
Else
Text1.Text = " "
Text1.MaxLength = 0
End If
End Sub