[محمد سالم المحترف]

الكود كامل

PHP كود :

  Dim t As System.Threading.Thread
    Private Sub OpenIdFileTextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenIdFileTextToolStripMenuItem.Click
        CheckForIllegalCrossThreadCalls = False
        ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
        t = New Thread(AddressOf ob_en)
        t.IsBackground = True
        t.SetApartmentState(ApartmentState.STA)
        t.Start()
    End Sub

    Public Sub ob_en()
        Dim s As New OpenFileDialog
        s.Filter = "text | *.txt"
        s.Title = "import Combolist"
        s.ShowDialog()
        Dim allLines() As String = System.IO.File.ReadAllLines(s.FileName)
        ListBox1.Items.AddRange(allLines)
    End Sub