Office-Programm mit vb.net starten und Fenstertitel beeinflussen

Imports System.Runtime.InteropServices

Public Class Form1
     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _  
    Shared Function SetWindowText(ByVal hwnd As IntPtr, ByVal windowName As String) As Boolean
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _  
    Shared Function GetWindowText(ByVal hwnd As IntPtr, ByVal windowText As System.Text.StringBuilder, ByVal intMaxChars As Integer) As Integer
    End Function

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ps As New Process, strWindowsText As New System.Text.StringBuilder, strOldTitle As String
        ps.StartInfo.FileName = "calc.exe"  
        ps.Start()
        ps.WaitForInputIdle()
        Threading.Thread.Sleep(300)
        ' 'Hole Titel des Fensters  
        'GetWindowText(ps.MainWindowHandle, strWindowsText, 200)  
        strOldTitle = strWindowsText.ToString()
        ' neuen Titel setzen  
        SetWindowText(ps.MainWindowHandle, strOldTitle & " - Ein Ergänzungstext")  
    End Sub