CloseHandle的问题

Question

Private Function ncnr(lpADDress As Long) As Integer
    ' 声明一些需要的变量
    Dim hwnd As Long        ' 储存 FindWindow 函数返回的句柄
    Dim pid As Long         ' 储存进程标识符( Process Id )
    Dim pHandle As Long     ' 储存进程句柄
    hwnd = FindWindow(vbNullString, "封神榜·网络版")
    ' 取得进程标识符
    GetWindowThreadProcessId hwnd, pid
    ' 使用进程标识符取得进程句柄
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    ' 在内存地址中读取数据
    ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
    ' 关闭进程句柄
    CloseHandle hProcess
End Function这是我看的一个程序，我有个问题：CloseHandle hProcess我觉得应该是：CloseHandle pHandle吧 不知道我说的对不对？