Private Sub Read_Keys(ByVal id As String)
        Dim Pfad As Microsoft.Win32.RegistryKey = _
          Microsoft.Win32.Registry.Users.OpenSubKey(id & _
          "\Software\Microsoft\Windows\DWM", True)
        Dim l1 As Integer = Pfad.GetValue("EnableAeroPeek")
        ' Vermutlich hier etwas sinnvolles damit machen
    End Sub
 
    Private Sub Test()
        Read_Keys("S-1-5-21-231195853-1849348507-1351822765-1001")
    End Sub

________
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