Thursday 10/21/2010

Here is a quick tutorial I did off of Youtube

Dim X As Integer
Dim Num1 As Integer
Dim size1 As Integer = 1000
Dim arrayStore(size1) As Integer

Randomize()

For X = 1 To 1000
Num1 = Rnd() * 9 + 1
TextBox1.AppendText(Str(Num1))
arrayStore()
Next