请问如何修改注册表

        Dim reg As Microsoft.Win32.RegistryKey
        reg = Microsoft.Win32.Registry.CurrentUser
        reg = reg.OpenSubKey("HKEY_CURRENT_USER\ControlPanel\Backlight\BatteryTimeout", True)
        Me.TextBox1.Text = reg.GetValue("Window Title")

调试时过不去
提示：
错误 1 Type 'Microsoft.Win32.RegistryKey' is not defined.
错误 2 'Win32' is not a member of 'Microsoft'. --------------------编程问答-------------------- 环境有问题

补充：移动开发 ,  Windows Phone