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