InetAcceptConnect Example for Visual Basic

This is also the example for the InetAccept event, the SendList property and the SendListNum property.

Private Sub LEADNet1_InetAccept(ByVal iServer As Integer)
   Dim iComp As Integer

   LEADNet1.InetAcceptConnect iServer
   IComp = LEADNet1.InetConnectedComputer
   ' add connection to send list
   LEADNet1.SendList(LEADNet1.SendListNum) = iComp
End Sub