GetZoneInfo Example for Visual Basic
Private Sub Command8_Click()
Dim ZoneData As New LTZoneData
Dim nRet As Long
nRet = RasterDoc.GetZoneInfo (0, 0, ZoneData)
If nRet = 0 Then
MsgBox "The engine retrieved the specified zone information successfully"
ZoneData.FillMethod = FM_OCRA
ZoneData.Type = ZONE_TYPE_GRAPHIC
nRet = RasterDoc.UpdateZone (0, 0, ZoneData)
If nRet = 0 Then
MsgBox "The specified zone is updated"
End If
End If
End Sub