'Declaration
Public Sub DocumentShear( _
ByVal As Double, _
ByVal As Color, _
ByVal As ShearType _
)
'Usage
Dim instance As Processor
Dim ShearAngle As Double
Dim PadColor As Color
Dim ShearType As ShearType
instance.DocumentShear(ShearAngle, PadColor, ShearType)