OffsetZones Example for Visual Basic
Private Sub Command27_Click()
Dim nRet As Integer
RasterDoc.DrawPersistence = False
RasterDoc.OffsetZones(0, 0)
nRet = RasterDoc.SelectZoneByPoint (Null, hDC, 0, 100, 100)
If nRet = 0 Then
MsgBox "The selected zone index = " + Str(RasterDoc.SelectZoneIndex)
End If
End Sub