FindZones Example for Visual Basic

Private Sub Command9_Click()
   Dim nRet As Integer

   RasterDoc.GetAutoZoneOptions
   RasterDoc.ShowZoneGridLines = True
   RasterDoc.EnableZoneForceSingleColumn = True
   RasterDoc.ZoneParser = PARSER_AUTO

   RasterDoc.SetAutoZoneOptions
   
   nRet = RasterDoc.FindZones (0, True) 
   If nRet = 0 Then
      MsgBox "The engine finds all available zones in the specified page"
   End If
End Sub