InetSendSizeWinCmd Example for Visual Basic

Dim nRet As Integer

nRet = LEADNet1.InetSendSizeWinCmd(999, 1, 0, 0, 100, 100)
If ((nRet <> 0) And (nRet <> ERROR_DATA_QUEUED)) Then
   MsgBox "ERROR " & CStr(nRet) & " calling InetSendSizeWinCmd."
Else
   MsgBox "InetSendSizeWinCmd Executed."
End If