Imports QuickFix
Imports QuickFix.Transport
Imports QuickFix.Fields


Public Class ClientGUI
    Dim filename As String = "initiator.cfg"
    Dim settings As New SessionSettings(filename)
    Dim myApp As New MyQuickFixApp()
    Dim storeFactory As New FileStoreFactory(settings)
    Dim logFactory As New FileLogFactory(settings)
    Dim initiator As New SocketInitiator(myApp, storeFactory, settings, logFactory)

    Public Sub ConnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectToolStripMenuItem.Click
        ToolStripDropDownButton1.Text = "Establishing connection..."
        ToolStripDropDownButton1.Image = My.Resources._1376837601_Connecting
        initiator.Start()
    End Sub

    Private Sub DisconnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DisconnectToolStripMenuItem.Click
        ToolStripDropDownButton1.Text = "Disconnecting..."
    ToolStripDropDownButton1.Image = My.Resources._1376837601_Connecting
        initiator.Stop()
    End Sub

End Class