Public Sub ScaleImage( _
   ByVal ScaleX As Double, _
   ByVal ScaleY As Double _
) 

Public Sub T_ScaleImage(ByRef Tools As CiTools)
  If (Tools.Image.IsZone) Then
    Debug.Print "Scale can not be applied to zone"
  Else
    Tools.pScaleType = ciScaleThreshold
    Tools.pScaleThreshold = 50
    Tools.ScaleImage 0.5, 0.5
  End If
End Sub