类型“Integer”的值无法转换为“System.IntPtr该如何解决

如下代码中的 错误 类型“Integer”的值无法转换为“System.IntPtr”。该如何解决呢？
Imports WindowsApplication1.WindowsFormsApplication1

Class form1
    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)

        Dim PinballHandle As IntPtr
        Dim PinballScoreAddressPointer As IntPtr = DirectCast(&H5D55888, IntPtr)
        '内存0x1025040中的值+0x52->PinballScoreAddress
        Dim PinballScoreAddress As UInteger() = New UInteger(1) {}
        '游戏分数的内存地址
        Dim PinballScoreWrite As UInteger() = New UInteger() {&H1869F}
        '将分数改为:999600000
        Dim PinballScoreRead As UInteger() = New UInteger(1) {}
        '用来存放当前分数
        '"3D Pinball"在“Windows 任务管理器”中显示为"PINBALL.EXE"，但作为
        'GetProcessesByName的参数使用时并不能包含扩展名".EXE"。
        Dim PinballProcessID As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("ra3_1.4.game")
        '根据进程名获取进程ID
        If PinballProcessID.Length <> 0 Then
            PinballHandle = ProcessMemoryWorkApi.OpenProcess(&H1F0FFF, 0, DirectCast(PinballProcessID(0).Id, UInt32))
            'PROCESS_ALL_ACCESS=0x1F0FFF
            ProcessMemoryWorkApi.ReadProcessMemory(PinballHandle, PinballScoreAddressPointer, PinballScoreAddress, 4, DirectCast(0, IntPtr))
            '通过指针得到PinballScoreAddress
            PinballScoreAddress(0) = PinballScoreAddress(0) + &H4
            'PinballScoreAddress+0x52才是游戏分数的内存地址
          ProcessMemoryWorkApi.ReadProcessMemory(PinballHandle, DirectCast(PinballScoreAddress(0), IntPtr), PinballScoreRead, 4, DirectCast(0, IntPtr))
            '当前游戏分数
            MessageBox.Show("当前分数为： " + PinballScoreRead(0).ToString() + vbLf + "分数即将被修改成： 99999", "ProcessMemoryWork_Demo")
            ProcessMemoryWorkApi.WriteProcessMemory(PinballHandle, DirectCast(PinballScoreAddress(0), IntPtr), PinballScoreWrite, 4, DirectCast(0, IntPtr))            '修改游戏分数
            ProcessMemoryWorkApi.CloseHandle(PinballHandle)
        Else
            MessageBox.Show("""3D Pinball"" 还没有运行吧？", "ProcessMemoryWork_Demo")
        End If


    End Sub
End Class

 

 

 

解决方法：Dim PinballScoreAddressPointer As IntPtr = New IntPtr(&H5D55888)