Multiple Selection using Enum(VB6)

Option Explicit
Public Enum Toppings
Cheese = 1
ham = 2
Tomato = 4
Eggs = 8
Bananas = 16
kela = 32
End Enum
Public Sub GimmePizza(Topping As Toppings)


If Topping And Cheese Then Print "Cheese"

If Topping And ham Then Print "Ham"

If Topping And Tomato Then Print "Tomato"

If Topping And Eggs Then Print "Eggs"

If Topping And Bananas Then Print "Bananas"
If Topping And kela Then Print "kela"

End Sub
Private Sub Command1_Click()
GimmePizza Cheese + kela + ham
End Sub