Предпринята попытка чтения или записи защищенной памяти. Это часто указывает на то, что другая память повреждена

Это, как правило, вызвано неправильным Private Declare Function заявление. Типы, перечисленные в API Windows, отличаются от типов, используемых в коде VB или C#. Это большой список преобразования типов данных между Windows API и .Сети: API-интерфейса Win32 C++ для .Чистая

На сайтеPInvoke часто указан правильный VB-код.

Для RegEnumValue , исправьте типы данных, и lpcValueName является ByRef, а не ByVal:

Declare Auto Function RegEnumValue Lib "Advapi32" ( _
    ByVal hKey As IntPtr, _
    ByVal dwIndex As Integer, _
    ByVal lpValueName As StringBuilder, _
    ByRef lpcValueName As Integer, _
    ByVal lpReserved As IntPtr, _
    ByVal lpType As IntPtr, _
    ByVal lpData As IntPtr, _
    ByVal lpcbData As IntPtr _
) As Integer

Для RegCloseKey , просто исправить типы данных:

Declare Function RegCloseKey Lib "advapi32.dll" ( _
    ByVal hKey As UIntPtr _
) As Integer

Для RegOpenKey , исправьте типы данных и измените phkResult на ByRef:

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
    ByVal hKey As Integer, _
    ByVal lpSubKey As String, _
    ByRef phkResult As IntPtr _
) As Integer

Поэтому ваша функция должна выглядеть примерно так. К сожалению, я не знаю, что писать для strData или RetvalData. Я добавил в блок Try/Finally, который будет уверен, что RegCloseKey вызывается, даже если возникает ошибка. Вы хотите убедиться, что всегда закрываете вещи, особенно если что-то идет не так.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Const Buffer As Long = 255
    Dim hKey As IntPtr = IntPtr.Zero
    Dim num As Integer = 0
    Dim strName As New StringBuilder
    Dim strData As IntPtr = ' I'm not surte what goes here.
    Dim Retval As Integer = Buffer
    Dim RetvalData As IntPtr = ' I'm not surte what goes here.
    If RegOpenKey(HKEY_CURRENT_USER, "Control Panel\Desktop", hKey) = 0 Then 'error
        Try
            While RegEnumValue(hKey, num, strName, Retval, IntPtr.Zero, IntPtr.Zero, strData, RetvalData) <> ERROR_NO_MORE_ITEMS
                If RetvalData > 0 Then
                    ListBox1.Items.Add(strName.ToString + Retval + "  =  " + strData + RetvalData - 1)
                End If
                num = num + 1
                strName = New StringBuilder(Buffer)
                strData = ' I'm not sure what goes here.
                Retval = Buffer
                RetvalData = ' I'm not surte what goes here.
            End While
        Finally
            RegCloseKey(hKey)
        End Try
    Else
        ListBox1.Items.Add("Error")
    End If
End Sub