Public Class ThreadRun
        Private anwendung As String
        Private arguments As String
 
        Public Sub New(ByVal anwendung As String, ByVal arguments As String)
            Me.anwendung = anwendung
            Me.arguments = arguments
        End Sub
 
        Private Sub OpenScript()
            Dim startInfo As New ProcessStartInfo(anwendung)
            Dim i
            startInfo.WindowStyle = ProcessWindowStyle.Minimized
            startInfo.Arguments = arguments
            startInfo.UseShellExecute = True
            i = Process.Start(startInfo)
        End Sub
 
        Public Sub run()
            Dim Thread As New Threading.Thread(AddressOf OpenScript)
            Thread.Start()
        End Sub
    End Class
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ts As New ThreadRun("notepad.exe", "")
        ts.run()
    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