type atype

    redim as integer arr(any)

end type



dim ainst as atype

print lbound(ainst.arr)
print ubound(ainst.arr)


redim ainst.arr(1 to 9)

print lbound(ainst.arr)
print ubound(ainst.arr)


sleep