InetSendCmd Example for Visual Basic

' my user defined commands
Private Const INETCMD_FLIP = INETCMD_USER_CUSTOM

Dim nRet As Integer
Dim Params As New LEADRasterInetPacket
Dim ExtraData As New LEADRasterVariant
Dim lSize As Long
Dim RasterVar As New LEADRasterVariant

RasterVar.Type = VALUE_ULONG
RasterVar.DoubleValue = 1
Params.ParamCount = 1
Params.ParamValue(0) = RasterVar
Params.ParamType(0) = PARAM_TYPE_UINT32

ExtraData.Type = VALUE_STRING
ExtraData.StringValue = "This is Flip"
lSize = Len(ExtraData)

nRet = LEADNet1.InetSendCmd(INETCMD_FLIP, 999, Params, lSize, ExtraData)