Dim RegKey As Microsoft.Win32.RegistryKey
        RegKey = My.Computer.Registry.CurrentUser.OpenSubKey( _
          "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers", _
          True)
        RegKey.SetValue("C:\Programme\TestAPP\Test.exe", "VISTASP2") _
        'Kompatibilitätsmodus Vista SP2