Public Sub T_Tools (ByRef Ci As CiServer, ByRef Img As CiImage)
    ' Create CiTools object
  Dim Tools As CiTools  
  Set Tools = Ci.CreateTools
      '  Attach CiImage
  Tools.Image = Img
      '  Use CiTools Object.  For example
  Debug.Print "Pixels=" & Tools.CountPixels
  Debug.Print "Skew=" & Tools.MeasureSkew
  T_MeasureHistogram Tools
End Sub