[VB6] Allocare un array

[MItaly]

Dim bonus() As Integer
'...
ReDim bonus(tentativi)
For i = 0 To tentativi
x = Int(Rnd() * 600)
bonus(i) = x
Next i

Ma comunque un up dopo 14 minuti mi pare un tantino eccessivo... specie in periodo di feste.