Private _session As ISession

        Private Const EURUSD_ID As Long = 4001

        Public Sub MarketDataUpdate(orderBookEvent As OrderBookEvent)
        Form1.TextInfo.Text = "Market data: " & orderBookEvent.ToString()
        End Sub

        Private Sub LoginCallback(session As ISession)
            'Console.WriteLine()
            _session = session

            Form1.TextInfo.Text = "Logged in, account ID: " & Convert.ToString(session.AccountDetails.AccountId)

            ' Register EventListeners, subscribe to data and start the session.
            AddHandler session.MarketDataChanged, AddressOf MarketDataUpdate

            session.Subscribe(New OrderBookSubscriptionRequest(EURUSD_ID), Sub() Form1.TextInfo.Text = "Successful subscription", Sub() Form1.TextInfo.Text = "Failed to subscribe: -")
            session.Start()
        End Sub

        Public Sub FailureCallbac(failedFunction As String)
            Form1.TextInfo.Text = "Failed to " & failedFunction & " due to: -"
        End Sub

        Private Shared Function FailureCallback(failedFunction As String) As OnFailure
            'Dim FailureResponse As New FailureResponse
            Dim FailureResponse As String = "Failed to " + failedFunction + " due to: -"
            Dim OnFailure As OnFailure

            Return OnFailure
        End Function


        Public Shared Sub Main()
            Dim myTradingBot As New MyTradingBot()

            Dim lmaxApi As New LmaxApi(URL_LIVE)
            lmaxApi.Login(New LoginRequest(UName, PWord), AddressOf myTradingBot.LoginCallback, FailureCallback("log in"))
        End Sub