'Listing 21.5  21LIST05.TXT -- Operator Xor

Private Sub Command1_Click()
  W = 15
  X = 7
  Y = 5
  Result = X < W Xor Y > W
  Form1.Print Spc(3); "X < W Xor Y > W" & Result
  Result = X < Y Xor Y > W
  Form1.Print Spc(3); "X < Y Xor Y > W" & Result
End Sub
