Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Net.Sockets
 
 
Dim s_socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
  ProtocolType.IP)
 
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Timer1.Tick
 
        Dim current_socket As New Socket(AddressFamily.InterNetwork, _
          SocketType.Stream, ProtocolType.IP)
        s_socket.Listen(1)
        current_socket = s_socket.Accept
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim ipHostinfo As IPHostEntry = Dns.Resolve(Dns.GetHostName)
        Dim ipAdress As IPAddress = ipHostinfo.AddressList(0)
        Dim localEP As New IPEndPoint(ipAdress, 930)
        s_socket.Connect(localEP)
    End Sub