Just got enum working within a class :)
Sample:
class myClass
enum BITPIX
bits8 = 0
bits16 = 0
//etc etc
end enum
dim foo as BITPIX = bits8
sub foobar(v as BITPIX)
end sub
sub main()
foobar(BITPIX.bits8)
end sub
end class
Robin