Public prog As New System.Diagnostics.Process()
Public Sub start_process(ByVal from As String, ByVal dest As String)
 
        AddHandler prog.ErrorDataReceived, AddressOf ProcessErrorDataReceived
 
        With prog.StartInfo
            .FileName = "c:\download\programm.exe"
            .WorkingDirectory = "c:\download\"
            .Arguments = from + " " + dest
            .WindowStyle = ProcessWindowStyle.Hidden
            .UseShellExecute = False
            '.LoadUserProfile = False
            .CreateNoWindow = True
            .RedirectStandardError = True
            .RedirectStandardOutput = True
            .Domain = "laptop1"
            .UserName = "harry"
            .Password = make_secureString("geheim") 'Funktion zum Verschlüsseln 
            ' des 
            ' SecureStrings
        End With
 
        Try
            prog.Start()
            prog.BeginErrorReadLine()
            tmrCheckProcess.Start()
            'End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub