Maybe this will help
<Flags> Public Enum eFlags As Integer
None = 0
First = 1
Second = 2
Third = 4
'note: flags added above will have to be Or'ed in All
All = First Or Second Or Third '<<<<<<<<<
End Enum
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer = 14
For y As Integer = 6 To 13
Dim res As eFlags = CType(x And y, eFlags)
If eFlags.All.HasFlag(res) Then
Stop
Else
Stop
End If
Next
End Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…