AND

L'operatore And dà un risultato vero, soltanto se entrambi i termini di contronto sono "veri".

Mostriamo un esempio pratico:

Public Sub Main()
 
 Dim a, b As Byte
 
  a = 1
  b = 0
   
  If (a = 0) And (b = 1) Then Print "1"
  If (a = 0) And (b = 0) Then Print "2"
  If (a = 1) And (b = 1) Then Print "3"
  If (a = 1) And (b = 0) Then Print "4"
  
End

Come si potrà notare, andrà a buon fine soltanto il 4° test di confronto, poiché solo in questo caso entrambi i termini di confronto sono veri.