[maXim]

Hi Tazer,

this example works:

Sub Globals
' declare the global variables here.
Dim us(6) ' note the number of elements ( + 1)
Dim pc(6)
End Sub


Sub App_Start
Form1.Show
End Sub

Sub Button1_Click
For b = 0 To 5
us(b) = Rnd(0,50)
pc(b) = Rnd(0,50)
Next
End Sub

Best Regards,

Massimo

Sorry, I had not translated well in red writing that said it had resolved...