.NET (Core and Framework)

STAThreadAttribute() _
    Private Sub importpupils_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimportbob.Click
        'starts threading to make program appear faster and optomise performance
        Dim t As New Thread(AddressOf importbob)
        t.Name = "Import Bob"
        importPupilsThread = True
        t.Start()
    End Sub

    <STAThreadAttribute()> _
    Public Sub importbob()
        'this sub open's a stream reader so bob's master file can be taken into the program
        Dim file As FileStream
        Dim inputstream As StreamReader
        Dim temp As String
        Dim item As ListViewItem
        Dim i As Integer

        open.Filter = "CSV File (*.csv)|*.csv"
        If open.ShowDialog = DialogResult.OK Then
            Try
                file = New FileStream(open.FileName, FileMode.Open)
                inputstream = New StreamReader(file)
            Catch ex As Exception
                MsgBox("A Exception has occured." + vbCrLf + ex.Message)
                Exit Sub
            End Try
            btnimportbob.Enabled = False

            Try
                Do While inputstream.Peek > -1
                    temp = inputstream.ReadLine
                    item = bobslist.Items.Add(temp.Split(",", 11, StringSplitOptions.None)(0))
                    For i = 1 To 10
                        item.SubItems.Add(temp.Split(",", 11, StringSplitOptions.None)(i).Trim)
                    Next
                Loop
            Catch ex As Exception
                MsgBox("A exception has occured. You may have imported the wrong file or the file is corupt" + vbCrLf + ex.Message)
                inputstream.Close()
                importPupilsThread = False
                Exit Sub

            End Try
            inputstream.Close()
        End If

        importPupilsThread = False
        btnimportseemis.Enabled = True
    End Sub

Module publicmain
    Public Const appversion As String = "2.0.0"
    Public Const appauthor As String = "*****"
    Public Const apptitle As String = "*******"
    Public MainForm As frmmain
    Public importPupilsThread As Boolean = False
    Public importSeemisThread As Boolean = False
    Public nextThread As Boolean = False


    ' Main entry point in to application
    ' Creates new instance of the main form then shows the dialog
    <STAThreadAttribute()> _
    Sub Main()
        MainForm = New frmmain()
        MainForm.ShowDialog()
    End Sub