'Listing 21.2 21LIST02.TXT -- Operator And

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