here is the code..
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Maths"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function addNumbers(lNum1 As Long, lNum2 As Long) As Long
addNumbers = lNum1 + lNum2
End Function
Public Function multiplyNumbers(lNum1 As Long, lNum2 As Long) As Long
multiplyNumbers = lNum1 * lNum2
End Function
Public Function subtractNumbers(lNum1 As Long, lNum2 As Long) As Long
subtractNumbers = lNum1 - lNum2
End Function
Public Function divideNumbers(lNum1 As Long, lNum2 As Long) As Long
divideNumbers = lNum1 / lNum2
End Function | [reply] |
Sorry - can't help where VB is concerned, as I know nothing about it.
Cheers, Rob
| [reply] |