Hi Phil,

Here goes the code snippet.

Module Module1
   Sub Main()
       Dim o As New Class1
       Dim v1 As Class1.TestEnum
       Dim v2 As Class1.TestEnum
       v1 = Class1.TestEnum.Value1
       v2 = Class1.TestEnum.Value2
       o.TestProg = v1 Or v2
       Console.WriteLine(o.TestProg.ToString())
       o.TestProg = Class1.TestEnum.Value1 Or Class1.TestEnum.Value2
       Console.WriteLine(o.TestProg.ToString())
   End Sub
End Module

Public Class Class1
   Public Enum TestEnum As Integer
       Value1 = &H10
       Value2 = &H20
       Value3 = &H30
   End Enum
   Private _TP As Integer
   Public Property TestProg() As TestEnum
       Get
           Return _TP
       End Get
       Set(ByVal Value As TestEnum)
           _TP = Value
       End Set
   End Property
End Class

Is this what you want? If you still have any concern, please feel free to
let me know.

Best regards,

Peter Huang
Microsoft Online Partner Support

Phil,
As Peter showed you can use an enum. Most of the time if you are going to
use an enum "Bitwise", it should be powers of 2, plus I would include the
Flags attribute to signify that it is going to be used "Bitwise". I will
include other values (such as 3) for masks or predefined combinations.

   <Flags> Public Enum TestEnum As Integer
       None = 0
       Value1 = &H1
       Value2 = &H2
       Value3 = &H4
   End Enum

I normally include None with a value of zero for no bits set.

With VS.NET 2003 I like to use the shift operator when defining the values,
as it shows the bit position and I don't need to remember my powers of 2 ;-)

   <Flags> Public Enum TestEnum As Integer
       None = 0
       Value1 = 1 << 0 ' bit position 0
       Value2 = 1 << 1 ' bit position 1
       Value3 = 1 << 2 ' bit position 2
       Value4 = 1 << 3 ' bit position 3
   End Enum

Hope this helps
Jay