VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsWork"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Public Function Divide(Dividend As Double, Divisor As Double) As Double
    '
    ' produce results of division
    ' or report error
    '
    On Error GoTo LocalErr
    '
    Divide = Dividend / Divisor
    '
    Exit Function
    '
LocalErr:
    '
    ' raise error in *calling program* - don't show dialog
    Err.Raise vbObjectError + Err.Number, _
      App.EXEName & ".clsWork." & "Divide", Err.Description
    '
End Function
