InetSendCmd2 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 String
Dim lSize As Long

Params.ParamCount = 1
Params.ParamValue(0) = 1
Params.ParamType(0) = PARAM_TYPE_UINT32

ExtraData = "This is Flip"
lSize = Len(ExtraData)

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