Dim RegKey As Microsoft.Win32.RegistryKey
    Sub ShowIt()
        Dim s() As String
        Dim str As String
 
        RegKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey( _
          Microsoft.Win32.RegistryHive.CurrentUser, NAMEDESCOMPUTERS)
        RegKey = RegKey.OpenSubKey( _
        "Software\Microsoft\Windows\ShellNoRoam\MUICache", False)
 
 
 
        s = RegKey.GetValueNames()
 
 
        For Each str In s
            ListBox1.Items.Add(str)
        Next
 
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            ListBox2.Items.Add(s.GetValue(ListBox1.Items.Item(i), "-"))
        Next
 
 
        RegKey.Close()
    End Sub