Visual Basic

Public Class NoctrisClient

Public Event ClientConnected()
Public Delegate Sub SimpleCallBack()
Public isConnected as boolean = false


Private endpoint as new IPEndPoint(system.net.dns.GetHostEntry("my.server.com").addresslist(0),1234)
Private SocketClient as Socket

Public Sub New()

me.connect()

End sub
Public sub Connect()

 ClientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
 ClientSocket.BeginConnect(endpoint, AddressOf Connected, Nothing)

end sub

Private Sub Connected(ByVal ar As IAsyncResult)
        Try
            ClientSocket.EndConnect(ar)
            '-- Ok, we are connected
            EventClientConnected()
            '-- Start Receiving Data
            ClientSocket.BeginReceive(RecvBuffer, 0, RecvBuffer.Length, _
                SocketFlags.None, AddressOf ReceivedData, Nothing)

        Catch ex As Exception
            '-- Call DisconnectedUI
           ' Make call to raise ClientDisconnectedEvent
' EventClientDisconnected()
        End Try
    End Sub

'... and so on.. all code from the socketclient is ok..it worked before so...

Private Sub RaiseClientConnected()
        RaiseEvent ClientConnected()
        isConnected = True
    End Sub

    Private Sub EventClientConnected()
' Doing this here because i call these events on several places and did not wanted to keep repeating code.
        Dim cb As New SimpleCallback(AddressOf RaiseClientConnected)
        cb.Invoke()
    End Sub

end class

imports my.namepace.NoctrisClient

Public Class Myform

Private WithEvents Client as new NoctrisClient
Private Delegate Sub SimpleCallBack()

Private Sub HandleClientConnected() Handles Client.ClientConnected
        Dim cb As New SimpleCallBack(AddressOf ConnectedUi)
        cb.Invoke()
End Sub

Public Sub ConnectedUi()
        Try
            LblServerStatus.Text = "Connected"
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
End Sub
end class

<br />
Private Structure WSADATA<br />
        Dim wVersion As Short<br />
        Dim wHighVersion As Short<br />
        <vbfixedarray(wsadescription_len)> Dim szDescription() As Byte<br />
        <vbfixedarray(wsasys_status_len)> Dim szSystemStatus() As Byte<br />
        Dim iMaxSockets As Short<br />
        Dim iMaxUdpDg As Short<br />
        Dim lpszVendorInfo As Integer<br />
<br />
        Public Sub Initialize()<br />
            ReDim szDescription(WSADescription_Len)<br />
            ReDim szSystemStatus(WSASYS_Status_Len)<br />
        End Sub<br />
    End Structure<br />
<br />
  Private Const WS_VERSION_REQD As Short = &H101S<br />
<br />
 Dim WSAD As New WSADATA<br />
 Dim iReturn As Short<br />
  iReturn = WSAStartup(WS_VERSION_REQD, WSAD)------>This statement is returning an error saying that<br />
<br />
"System.AccessViolationException was unhandled<br />
  Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt.""<br />
</vbfixedarray(wsasys_status_len)></vbfixedarray(wsadescription_len)>