InetSendCloseWinCmd Example for Visual Basic

Dim nRet As Integer

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