InetDisconnect Example for Visual Basic

This is also the example for the ConnectList property and ConnectListNum property.

Private Sub Command4_Click()
   Dim i As Integer

   ' disconnect all connections
   For i = 0 To LEADNet1.ConnectListNum - 1
      LEADNet1.InetDisconnect LEADNet1.ConnectList(i)
   Next i
End Sub