ZoneLeft Example for Visual Basic

Private Sub Command10_Click()
   Dim nRet As Integer
   RasterDoc.ZoneLeft = 100
   RasterDoc.ZoneTop = 100
   RasterDoc.ZoneWidth = 250
   RasterDoc.ZoneHeight = 250

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