Sub GiveFullAccess(ByVal key As RegistryKey, ByVal domain As String, ByVal _
  userName As String)
  Dim regSecurity As RegistrySecurity = key.GetAccessControl()
 
  Dim account As New NTAccount(domain, userName)
 
  Dim fullAccessRule As New RegistryAccessRule(account, _
    RegistryRights.FullControl, AccessControlType.Allow)
  regSecurity.AddAccessRule(fullAccessRule)
 
  key.SetAccessControl(regSecurity)
End Sub

Ralf