Dim basedir As String = _
  "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        Dim optionen As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.CurrentUser.OpenSubKey(basedir)
 
        If CheckBox1.Checked = True Then
            optionen.SetValue("Hidden", 1)
 
        Else
            optionen.SetValue("Hidden", 0)
        End If

(Visual Basic .net - Version 2008)