InetSendSetRectCmd Example for Visual Basic

Dim nRet As Integer
Dim SW_SHOW As Integer
SW_SHOW = 0
nRet = LEADNet1.InetSendSetRectCmd(999, 1, DISPLAY_RECT_DST, 0, 0, 100, 100)
If ((nRet <> 0) And (nRet <> ERROR_DATA_QUEUED)) Then
   MsgBox "ERROR " & CStr(nRet) & " calling InetSendSetRectCmd."
Else
   MsgBox "InetSendSetRectCmd Executed."
End If