home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap20 / smplcalc.fn < prev    next >
Encoding:
Text File  |  1995-09-21  |  293 b   |  12 lines
  1. Declare Function SimpleCalc% Lib "C:\SC_WIN\SCALCWIN" (ByVal Parm1%, ByVal Parm2%)
  2.  
  3. Private Sub Label3_Click()
  4.     Dim Parm1 As Integer
  5.     Dim Parm2 As Integer
  6.  
  7.     Parm1 = Val(Text1.Text)
  8.     Parm2 = Val(Text2.Text)
  9.     Label3.Caption = Format$(SimpleCalc(Parm1, Parm2))
  10. End Sub
  11.  
  12.