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