void OnStateChange(object sender, StateChangeEventArgs e)
{
    Console.WriteLine("New session state: {0}", e.NewState);
}

void OnInboundApplicationMsg(object sender, InboundApplicationMsgEventArgs e)
{
    Console.WriteLine("Incoming application-level message: {0}", e.Msg);
}

void OnInboundSessionMsg(object sender, InboundSessionMsgEventArgs e)
{
    Console.WriteLine("Incoming session-level message: {0}", e.Msg);
}

void OnOutboundApplicationMsg(object sender, OutboundApplicationMsgEventArgs e)
{
    Console.WriteLine("Outgoing application-level message: {0}", e.Msg);
}

void OnOutboundSessionMsg(object sender, OutboundSessionMsgEventArgs e)
{
    Console.WriteLine("Outbound session-level message: {0}", e.Msg);
}

void OnMessageResending(object sender, MessageResendingEventArgs e)
{
    Console.WriteLine("OnMessageResending: {0}", e.Msg);
    e.AllowResending = false;
}

void OnResendingStarted(object sender, ResendingStartedFinishedEventArgs e)
{
    Console.WriteLine("OnResendingStarted: BeginSeqNo={0}, EndSeqNo={1}", e.BeginSeqNo, e.EndSeqNo);
}

void OnResendingFinished(object sender, ResendingStartedFinishedEventArgs e)
{
    Console.WriteLine("OnResendingFinished: BeginSeqNo={0}, EndSeqNo={1}", e.BeginSeqNo, e.EndSeqNo);
}

void OnMessageSending(int msgSeqNum)
{
    Console.WriteLine("OnMessageSending"");
}

void OnSessionWarning(object sender, WarningEventArgs e)
{
    Console.WriteLine("Session warning: {0}", e.Reason);
}

void OnSessionError(object sender, ErrorEventArgs e)
{
    Console.WriteLine("Session error: {0}", e.Reason);
}

void run()
{
    Session session = new Session("SenderCompID", "TargetCompID", ProtocolVersion.FIX44);

    session.StateChangeEvent += new Session.StateChangeEventHandler(OnStateChange);
    session.InboundSessionMsgEvent += new Session.InboundSessionMsgEventHandler(OnInboundSessionMsg);
    session.InboundApplicationMsgEvent += new Session.InboundApplicationMsgEventHandler(OnInboundApplicationMsg);
    session.OutboundSessionMsgEvent += new Session.OutboundSessionMsgEventHandler(OnOutboundSessionMsg);
    session.OutboundApplicationMsgEvent += new Session.OutboundApplicationMsgEventHandler(OnOutboundApplicationMsg);
    session.MessageResending += new Session.MessageResendingEventHandler(OnMessageResending);
    session.ResendingStarted += new Session.ResendingStartedEventHandler(OnResendingStarted);
    session.ResendingFinished += new Session.ResendingFinishedEventHandler(OnResendingFinished);
    session.MessageSending += new Session.MessageSendingEventHandler(OnMessageSending);
    session.WarningEvent += new Session.WarningEventHandler(OnSessionWarning);
    session.ErrorEvent += new Session.ErrorEventHandler(OnSessionError);

    // ..
}

Sub OnStateChange(ByVal sender As Object, ByVal e As StateChangeEventArgs)
    Console.WriteLine("New session state: {0}", e.NewState)
End Sub

Sub OnInboundApplicationMsg(ByVal sender As Object, ByVal e As InboundApplicationMsgEventArgs)
    Console.WriteLine("Incoming application-level message: {0}", e.Msg)
End Sub

Sub OnInboundSessionMsg(ByVal sender As Object, ByVal e As InboundSessionMsgEventArgs)
    Console.WriteLine("Incoming session-level message: {0}", e.Msg)
End Sub

Sub OnOutboundApplicationMsg(ByVal sender As Object, ByVal e As OutboundApplicationMsgEventArgs)
    Console.WriteLine("Outgoing application-level message: {0}", e.Msg)
End Sub

Sub OnOutboundSessionMsg(ByVal sender As Object, ByVal e As OutboundSessionMsgEventArgs)
    Console.WriteLine("Outbound session-level message: {0}", e.Msg)
End Sub

Sub OnMessageResending(ByVal sender As Object, ByVal e As MessageResendingEventArgs)
    Console.WriteLine("OnMessageResending: {0}", e.Msg)
    e.AllowResending = False
End Sub

Sub OnResendingStarted(ByVal sender As Object, ByVal e As ResendingStartedFinishedEventArgs)
    Console.WriteLine("OnResendingStarted: BeginSeqNo={0}, EndSeqNo={1}", e.BeginSeqNo, e.EndSeqNo);
End Sub

Sub OnResendingFinished(ByVal sender As Object, ByVal e As ResendingStartedFinishedEventArgs)
    Console.WriteLine("OnResendingFinished: BeginSeqNo={0}, EndSeqNo={1}", e.BeginSeqNo, e.EndSeqNo);
End Sub

Sub OnMessageSending(ByVal msgSeqNum As Integer)
    Console.WriteLine("OnMessageSending")
End Sub

Sub OnSessionWarning(ByVal sender As Object, ByVal e As WarningEventArgs)
    Console.WriteLine("Session warning: {0}", e.Reason)
End Sub

Sub OnSessionError(ByVal sender As [Object], ByVal e As ErrorEventArgs)
    Console.WriteLine("Session error: {0}", e.Reason)
End Sub

Sub MainRun()
    Dim session As New Session("SenderCompID", "TargetCompID", FIXForge.NET.FIX.ProtocolVersion.FIX44)

    AddHandler session.StateChangeEvent, AddressOf OnStateChange
    AddHandler session.InboundSessionMsgEvent, AddressOf OnInboundSessionMsg
    AddHandler session.InboundApplicationMsgEvent, AddressOf OnInboundApplicationMsg
    AddHandler session.OutboundSessionMsgEvent, AddressOf OnOutboundSessionMsg
    AddHandler session.OutboundApplicationMsgEvent, AddressOf OnOutboundApplicationMsg
    AddHandler session.MessageResending, AddressOf OnMessageResending
    AddHandler session.ResendingStarted, AddressOf OnResendingStarted
    AddHandler session.ResendingFinished, AddressOf OnResendingFinished
    AddHandler session.MessageSending, AddressOf OnMessageSending
    AddHandler session.WarningEvent, AddressOf OnSessionWarning
    AddHandler session.ErrorEvent, AddressOf OnSessionError

    ' ..
End Sub