Visual Basic

using System.Reflection;

// ...

// Namespace = PatternsTest, Type = AfricaFactory (inherits from ContinentFactory)
string continentFactory = "PatternsTest.AfricaFactory";

object target = null;
Binder binder = null; 
string methodName = null;
object[] args = null;

// Create ContinentFactory instance
// e.g., ContinentFactory africa = new AfricaFactory();
Type continentType = assembly.GetType(continentFactory);
target = null;
methodName = null;
args = null;
ContinentFactory continentInstance = (ContinentFactory) continentType.InvokeMember(
	methodName,
	BindingFlags.DeclaredOnly | 
	BindingFlags.Public | 
	BindingFlags.Instance | 
	BindingFlags.CreateInstance, 
	binder, 
	target, 
	args
);

Private Class UserConnection
    Private __TcpClient As TcpClient
    Private __ConnectionID As Integer
    Private __ReadBufferSize As Integer
    Private __ReadBuffer As Byte()

    Public Event DataArrival(ByVal ConnectionID As Integer, ByVal rDataByte As Byte(), ByVal rDataStr As String)
    Public Event ConnectionLost()
    Public Event ConnectionClosedByClient()

    Public Sub New(ByVal ClientConnection As TcpClient, Optional ByVal ReadBufferSize As Integer = 255)
        __TcpClient = ClientConnection
        __ReadBufferSize = ReadBufferSize
        ReDim __ReadBuffer(__ReadBufferSize)
        Me.__TcpClient.GetStream.BeginRead(__ReadBuffer, 0, __ReadBufferSize, AddressOf StartRead, Nothing)
    End Sub
    Private Sub StartRead(ByVal AR As IAsyncResult)
        Dim BytesRead As Integer
        Dim strMessage As String

        Try
            SyncLock __TcpClient.GetStream
                BytesRead = __TcpClient.GetStream.EndRead(AR)
            End SyncLock

            strMessage = Encoding.ASCII.GetString(__ReadBuffer, 0, BytesRead)
            RaiseEvent DataArrival(__ConnectionID, __ReadBuffer, strMessage)

            SyncLock __TcpClient.GetStream
                ReDim __ReadBuffer(__ReadBufferSize)
                __TcpClient.GetStream.BeginRead(__ReadBuffer, 0, __ReadBufferSize, AddressOf StartRead, Nothing)
            End SyncLock
        Catch e As SocketException
            MessageBox.Show(e.ToString, e.NativeErrorCode.ToString)
        End Try
    End Sub
    Public Sub SendData(ByVal Data As String)
        SyncLock __TcpClient.GetStream
            Dim writer As New IO.StreamWriter(__TcpClient.GetStream)
            writer.Write(Data)
            writer.Flush()
        End SyncLock
    End Sub
    Public Sub SendData(ByVal Data As Byte())
        SyncLock __TcpClient.GetStream
            Dim writer As New IO.StreamWriter(__TcpClient.GetStream)
            writer.Write(Data)
            writer.Flush()
        End SyncLock
    End Sub
    Public Property ConnectionId() As Integer
        Get
            Return __ConnectionID
        End Get
        Set(ByVal Value As Integer)
            __ConnectionID = Value
        End Set
    End Property
End Class