Ayuda por favor Comparacion Bit a Bit

arturo
23 de Febrero del 2003
Soy reciente en vb y necesito realizar comparaciones bit a bit

No entiendo expresiones como estas
Numero= Val(Text1.Text)
If (Numero and 1) then Print "es impar"

If (Numero and 6) = 6 then Print "Los 2 bits 1 y 2 estan deifinidos"

If (Numero and 6) then Print "Los bits 1 y 2 o ambos estan deifinidos"