Types again

think I just figured it out.... :)

Type Stars
Field x#, y#, z#
Field r, g, b
End Type

Dim mystars1.stars(5)
Dim mystars2.stars(5)

For N = 0 To 5
mystars1(N) = New Stars
mystars2(N) = New Stars
Next

For j=0 To 5
mystars1(j)\r = Rand(255)
mystars2(j)\r = Rand(255)
Next

For j=0 To 5
DebugLog("mystars1(j)\r=" + mystars1(j)\r)
DebugLog("mystars2(j)\r=" + mystars2(j)\r)
Next