ExportZones Example for Visual Basic

Private Sub Command12_Click()
   Dim nRet As Integer
   nRet = RasterDoc.ImportZones (0, "c:\\zone.zon")
   If nRet = 0 Then
       MsgBox "Imports the zone file into the specified page"
   End If

   '... 
   ' work with zones... 
   '... 

   ' exports page zone list to Zone file... 
   nRet = RasterDoc.ExportZones (0, "c:\\zone.zon")
   If nRet = 0 Then
      MsgBox ("Exports the zone list into a zone file")
   End If
End Sub