hi im coming from a 10 year hiatus on vb programming and programing in general. I need help with this.

Function InitAnimalRefs() As Integer
Dim i As Integer

InitColors
ReDim arAnimal(0 To 3)

For i = 0 To UBound(arAnimal)
Set arAnimal(i) = New clsAnimalRef
Next i


arAnimal(0).InitAnimalRef 20, "Donkey", aRed
arAnimal(1).InitAnimalRef 15, "Cat", aYellow
arAnimal(2).InitAnimalRef 5, "Mouse", aOrange
arAnimal(3).InitAnimalRef 25, "Cow", aBlue

InitAnimalRefs = UBound(arAnimal)

End Function

I dont know how to properly instantiate a new object array as the clsAnimalRef class.

Try this

Dim arAnimal() As clsAnimalRef

Alex ...

Are you getting a specific error when you run your code? Which line is highlighted and what is the error?

I think you may need parens after the class name when instantiating a new object. (It's been quite a while since I switched from VB6 to VB.Net, so I'm fuzzy on how the "old way" worked.)

Like this: Set arAnimal(i) = New clsAnimalRef( )

Also -- make sure of the scope of your Class ... is it a valid class within that function?

-Bryk

_________________
www.mwgames.com ... Dicey Curves, Space Mission, Jump Gate, Gem Raider, DareBase, Castle Danger, Keeps & Moats Chess