'Dieser Code-Abschnitt funktioniert nur ab .NET 4!
Imports Microsoft.Win32                 'für die RegistryKey-Klasse
Imports Microsoft.VisualBasic.Devices   'für SysInfo
 
Private Function IRGENDWAS
    Dim BasisSchlüssel As RegistryKey
    Dim UnterSchlüssel As RegistryKey
 
    'Prüfen ob es sich um ein 64-Bit oder 32-Bit Betriebsystem handelt
    'Im Grunde genommen will ich nur wissen, wie ich diese If-Anweisung ändern 
    ' muss:
    '--------------------------------------------------------------------------
    If Enviroment.Is64BitOperatingSystem = True Then
        BasisSchlüssel = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, _
                                                 RegistryView.Registry64)
    '--------------------------------------------------------------------------
    'Der Rest würde auch unter .NET 3.5 passen
        UnterSchlüssel = BasisSchlüssel.OpenSubKey("SOFTWARE\Microsoft" & _
                                                       "\Windows" & _
                                                       "NT\CurrentVersion", _
                                                       False)
 
    Else 'Andernfalls (32-Bit)
            UnterSchlüssel = Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft" & _
                                                              "\Windows" & _
                                                              "NT\CurrentVersi" & _
                                                              "n", False)
    End If
 
    .
    .
    .
End Function