InetSendGetMagGlassDataCmd Example for Visual Basic

Public gnCommandID As Long
.
.
.

' … Assume that the following function will be called from inside the MagGlassExt event that
' belongs to LEAD RasterView control
Public Function GetMagGlassData(nBitmapID As Long, vMaskPlane As LEADRasterVariant, nMaskPlaneStart As Integer, nMaskPlaneEnd As Integer)

   Dim nRet As Integer

   gnCommandID = gnCommandID + 1

   nRet = LEADNet1.InetSendGetMagGlassDataCmd(gnCommandID, nBitmapID, vMaskPlane, nMaskPlaneStart, nMaskPlaneEnd)
   If ((nRet <> 0) And (nRet <> ERROR_DATA_QUEUED)) Then
      MsgBox "ERROR " & CStr(nRet) & " calling InetSendGetMagGlassDataCmd."
   Else
      MsgBox "InetSendGetMagGlassDataCmd Executed."
   End If

End Function