InetServerClose Example for Visual Basic

Private Sub Form_Unload(Cancel As Integer)
   ' shutdown server on exit
   LEADNet1.InetServerClose hServer
End Sub