'Listing 18.4  18LIST04.TXT - deklaracje domylne.

Sub Calc_Totals()
  Dim SubTotal As Currency
  Dim Tax As Currency
  Dim Totals As Currency
  SubTotal = 500#
  Tax = 37.5

  Totals = SubTotal + Tax
  Form1.Print Total
End Sub
