'industry is the user inputted string
        TabControl1.TabPages.Add(industry)
        TabControl1.Refresh()
        TabControl1.SelectedTab = TabControl1.TabPages.Item(industry)
        TabControl1.Parent = Me.ActiveControl.Parent
        Dim newListbox As New System.Windows.Forms.ListBox
        Dim locationpoint As Point
        newListbox.Parent = TabControl1.SelectedTab
        newListbox.Width = 1154
        newListbox.Height = 498
        locationpoint.X = 0
        locationpoint.Y = 0
        newListbox.Location = locationpoint
        newListbox.Name = industry
        newListbox.BorderStyle = BorderStyle.Fixed3D
        newListbox.CreateControl()
        Dim counttabs = TabControl1.TabCount
        TabControl1.SelectedIndex = counttabs
        Me.TabControl1.SelectTab(counttabs - 1)
        TabControl1.SelectedTab.Controls.Add(newListbox)
        newListbox.Dock = DockStyle.Top
        TabControl1.SelectTab(industry)