Dim Reg As RegistryKey

 Dim d As Double
 
        Try
            RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, _
              RegistryView.Registry64)
            Reg = Registry.LocalMachine.OpenSubKey("Software\Trend\EEP" & _
            "11.00\EEXP", False)
            d = Reg.GetValue("VERSION")
            C1.EEP11 = True
            AnzVers = AnzVers + 1
        Catch
            Try
                RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, _
                  RegistryView.Registry32)
                Reg = Registry.LocalMachine.OpenSubKey( _
                "Software\Wow6432Node\Trend\EEP 11.00\EEXP", False)
                d = Reg.GetValue("VERSION")
                C1.EEP11 = True
                AnzVers = AnzVers + 1
            Catch ex As Exception
                C1.EEP11 = False
            End Try
        End Try