Public Event Log As LogEventHandler

Dim instance As TcpBase
Dim handler As LogEventHandler
 
AddHandler instance.Log, handler

public event LogEventHandler Log

public: __event LogEventHandler* Log

public:
event LogEventHandler^ Log

logFile = 
	new FileStream(Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase) + 
        "\\logFile.txt", FileMode.Append, FileAccess.Write);
}

private void myComponent_Log(object sender, LogEventArgs e)
{
    string prompt = (e.Data.Direction == DataDirection.In) ? "Recv: " : "Sent: ";
    logFile.Write(System.Text.Encoding.Default.GetBytes(prompt), 0,prompt.Length);
    logFile.Write(e.Data.Buffer, e.Data.Offset, e.Data.Count);
    logFile.Write(System.Text.Encoding.Default.GetBytes("\r\n"), 0, 2);
}

Dim logFile As New FileStream(Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase) + _
    "\logFile.txt", FileMode.Append, FileAccess.Write)

Private Sub myComponent_Log(ByVal sender As Object, ByVal e As LoggingEventArgs) Handles myComponent.Log
    Dim prompt As String = ""
    If e.DataDirection = DataDirection.In) Then
        prompt = "Recv: "
    Else
        prompt = "Sent: "
    End If
    logFile.Write(System.Text.Encoding.Default.GetBytes(prompt), 0, prompt.Length)
    logFile.Write(e.Data.Buffer, e.Data.Offset, e.Data.Count)
    logFile.Write(System.Text.Encoding.Default.GetBytes(vbCrLf), 0, 2)
End Sub