Dim idx As Integer = -1
    Dim arrText() As String
 
    Private Sub DoIt()
        Do
            Dim myIdx As Integer = Threading.Interlocked.Increment(idx)
            If myIdx >= arrText.Length Then Exit Do
            Dim p As Process = Process.Start("notepad.exe", arrText(myIdx))
            p.WaitForExit()
        Loop
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
        arrText = IO.File.ReadAllLines("Data.txt")
        Dim threadCount As Integer = 2
        For i = 1 To threadCount
            Dim t As New Threading.Thread(AddressOf DoIt)
            t.Start()
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist