GfK #1 Dim PieceType.myType(10) For N = 0 to 10 PieceType(N) = New MyType Next PieceType(4)\PiecelocX = Whatever