VB.net 注册表操作API

VB.net 注册表操作API

'说明：该api只能在pc上使用，在wince上操作注册表需要利用Microsoft.WindowsMobile.Status库，使用方法如下：
'Imports Microsoft.WindowsMobile.Status
'Imports Microsoft.WindowsMobile.PocketOutlook
'
'TextBox4.Text = Microsoft.WindowsMobile.Status.SystemState.CalendarHomeScreenAppointmentEndTime
'
'如上所示，在windows mobile开发中，使用这一句话就可以获得注册表中CalendarHomeScreenAppointmentEndTime 这个键值的内容
'
'附件内有windows mobile 注册表测试程序，并有mobile开发库，本实例为c#开发。
'微软msdn库文档见此网址：
'http://msdn.microsoft.com/en-us/library/bb158491
''

'PC端vb开发注册表API如下所示，所述api并不能直接使用，还需要完善，以下只提供方法。

'Attribute VB_Name = "BasRegisty"
Option Explicit On
Imports System.Runtime.InteropServices '因为要获得API的访问
Public Class RegClass
'读写注册表任何地方的函数
' 用法见下面
' 摘自杨光宏 http://cako.126.com(VB技巧手册)
'用于操作注册表的API函数定义 -begin-
''以DllImport开始的函数功能类似于声明引用API函数　　
'<DllImport("advapi32.dll", SetLastError:=True)> _
'Private Shared Function RegOpenKey(ByVal hKey As Long, ByVal lpSubKey As String, ByVal phkResult As Long) As Long
'End Function
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal phkResult As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByVal phkResult As Long) As Long
Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As Object, ByVal cbData As Long) As Long
Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, ByVal lpcbValue As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByVal lpType As Long, ByVal lpData As Object, ByVal lpcbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (