Passing Enum Parameter , with More than one value ?

Question

Hi, Good day
in the fallowing example ,should I replace the enum Parameter with what ? how can i make that work ?
Module Module1
Enum Tables as integer
Table1 = 0
Table2 = 2
Table3 = 4
Table4 = 6
End Enum
Public Sub CallTables(byval Tbl as Tables)
if tbl = Tables.Table1 then msgbox ("Table1")
if tbl = Tables.Table2 then msgbox ("Table2")
if tbl = Tables.Table3 then msgbox ("Table3")
if tbl = Tables.Table4 then msgbox ("Table4")
end sub
end module
Class myClass1
private sub mySub()
CallTables(Tables.Table1 and Tables.Table2)
CallTables(Tables.Table1 and Tables.Table2 and Tables.Table3)
end sub
end class
since the Tbl parameter will take one value only , so one statement only will execute , how can I make it work with Enum Parameter ?
Thanks

Answer 1

Thanks guys for you reply , [Cor Ligthert] I post this in Visual basic section, I appreciate your solution [dbasnett],
Thanks for that idea of attribute <Flags> [Blackwood] ,
Dictionary will not work in IF Statement as I want it , also ParamArray tbl() , thanks guys.
Here is the code
Module myModule
<Flags()>
Enum Table As Integer
Table1 = 2
Table2 = 4
Table3 = 8
Table4 = 16
Table5 = 32
End Enum
Public Sub MySub(ByVal Table As Table)
If (Table And Table.Table1) = Table.Table1 Then
MsgBox((Table And Table.Table1))
End If
If (Table And Table.Table2) = Table.Table2 Then
MsgBox((Table And Table.Table2))
End If
If (Table And Table.Table3) = Table.Table3 Then
MsgBox((Table And Table.Table3))
End If
If (Table And Table.Table4) = Table.Table4 Then
MsgBox((Table And Table.Table4))
End If
If (Table And Table.Table5) = Table.Table5 Then
MsgBox((Table And Table.Table5))
End If
End Sub
End Module
Class Myclass
Private sub CallTables()
MySub(Table.Table1 Or Table.Table2)
MySub(Table.Table2 Or Table.Table3 Or Table.Table4)
MySub(Table.Table1 Or Table.Table4 Or Table.Table5)
MySub(Table.Table1 Or Table.Table2 Or Table.Table4 Or Table.Table5)
MySub(Table.Table1 Or Table.Table2 Or Table.Table3 Or Table.Table4 Or Table.Table5)
end sub
end Class