Public Function StartProcess(ByVal Name As String, Optional ByVal pfad As _
  String = "", Optional ByVal time As Integer = Nothing, Optional ByVal _
  Arguments As String = "", Optional ByVal wait As Boolean = False) As Boolean
        Dim FI As System.IO.FileInfo
        Dim p As New Process
        Dim Autostart As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.Startup)
        If pfad = "" Then pfad = Autostart
        FI = New FileInfo(Name)
        If FI.Exists Then
            Dim psi As New ProcessStartInfo(Name)
            p.StartInfo = psi
            psi.Arguments = Arguments
            p.Start()
            If time > 0 Then
                p.WaitForInputIdle(time)
            End If
            If wait Then p.WaitForExit()
        Else
            Return False
            Exit Function
        End If
        Return True
    End Function