InetDisconnected Example for Visual Basic

Private Sub LEADNet1_InetDisconnected (ByVal iComputer As Integer)
   MsgBox CStr(iComputer) + " disconnected"
End Sub