Private Sub Form_Load() Randomize Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() List1.AddItem Str(Int(Rnd * 90000 + 10000))End Sub
