'Listing 21.4  21LIST04.TXT -- Operator Or

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

