'Setup Prozess starten mit minimaler GUI:
        Dim PSQLODBC As String = "/i C:\Test\V2\install\123.msi /qb"
        Process.Start("MsiExec.exe", PSQLODBC)
 
        'Warte 3 Sekunden bis msiexec.exe geöffnet wurde:
        Application.DoEvents()
        Threading.Thread.Sleep(3000)
 
        'Warte bis das Setup beendet wurde:
WarteAufMSIexecPSQLODBC:
        If IsAppRunning("msiexec.exe") Then
            Application.DoEvents()
            Threading.Thread.Sleep(1500)
            GoTo WarteAufMSIexecPSQLODBC
        End If