home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch18code / calctest.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-13  |  267 b   |  15 lines
  1. Attribute VB_Name = "Module1"
  2. Sub main()
  3.     Dim x As Object
  4.     Set x = GetObject("", "Calc.Application")
  5.     DoEvents
  6.     x.AlwaysOntop = True
  7.     x.VALUE = 5
  8.     x.Divide
  9.     x.VALUE = 5
  10.     x.Add
  11.     x.VALUE = 2
  12.     x.SUM
  13.     MsgBox x.VALUE
  14. End Sub
  15.