vb用copymemory 读取内存数据有关问题

vb用copymemory 读取内存数据问题
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim x As Variant '用于读出的结果存放变量
CopyMemory x, ByVal Int(&H14B234), 4
MsgBox x
End Sub


内存中数据已经用CheatEngine知道地址，为什么老是提示类型不匹配，如果把x设置成long型，直接vb出错退出，求指导

[解决办法]
你得确认&H14B234是个有效的地址，然后不要直接在vb6里面运行，用到api的最好都生成exe来运行
[解决办法]
[分享]网上流传的一个游戏修改器(VB6代码)
http://www.m5home.com/bbs/thread-1344-1-1.html

其它进程,参考这个吧.
[解决办法]
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As long, ByVal Length As Long)
Private Sub Command1_Click()
Dim x As Long '用于读出的结果存放变量
CopyMemory varptr(x), Int(&H14B234), 4
MsgBox x
End Sub