InetServerInit Example for Visual Basic

Private Sub Form_Load()
   ' initialize port 1000 to wait for connections
   LEADNet1.InetServerInit 1000
   hServer = LEADNet1.InetServerHandle
End Sub