'Listing 20.1 20LIST01.TXT - czne uycie operatorw dodawania i odejmowania.

Private Sub Command1_Click()
  Expr1 = 100
  Expr2 = 75
  Expr3 = 90
  Result = Expr1 + Expr2 - Expr3
  Result2 = Expr1 - Expr3 + Expr2
  Form1.Print "Wynik1 = " & Result
  Form1.Print "Wynik2 = " & Result2
End Sub
