ComboBox1.Items.Clear()
        Dim a As String
        Dim i As Object
        For i = 10 To 11
            Dim regVersion As RegistryKey
            regVersion = Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Microsoft\Office\" & i & ".0\Registration")
            For Each rk As String In regVersion.GetSubKeyNames()
                a = ReadValue( _
                  "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & rk, _
                  "DisplayName")
                ComboBox1.Items.Add(a)
 
 
            Next
        Next