UDT problems

[eoredson]

Neither of these 2 functions work:

Code: (Select All)

Type BitStruct
  xbit As _Bit
End Type

Dim BitStructure As BitStruct
BitStructure.xbit = 0
Print BitStructure.xbit

Code: (Select All)

type StructType
  Array(10) As Integer
End Type

Dim Structure As StructType
Structure.Array(10) = 10