Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey( _
          "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{052FDD78-A6EA-" & _
          "187-8386-C82F4CA3A929}", True)
            Dim o As Integer = rk.GetValue("VersionMajor")
            rk.SetValue("VersionMajor", o + 1)
        End Using

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist