工程完整代码:

'先理解下变量的地址与指向这个地址的值。xx省xx市xx街xx号就是一个地址，
'指向这个地址的值就是这个地址就有什么。比如这个地址是张三家的地址，
'张三的家有什么呢？这个有什么就是这个地址所指向的值。
'VB没用操作指针的语言特性，因此需要通过WinAPI函数来进行操作，下面我们将
'演示一个非常简单的指针操作，让大家在VB使用指针有个基本的了解。
'CopyMemory函数参数
'CopyMemory是WinAPI函数,为了演示我把其修改成了两个版本，
'版本1:CopyMemory1
'版本2:CopyMemory2
'版本1Destination及Source的参数是按照引用传递的(ByRef)
'版本2Destination及Source的参数是按照值传递的(ByVal)
'参数说明:
'Destination
'要复制内存块的目的地址?
'Source
'要复制内存块的源地址?
'Length
'指定要复制内存块的大小，单位为字节
'返回值
'该函数为VOID型，没有返回值。
Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" _
        (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Private Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" _
        (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)

'在Basic语言演变成QBasic，然后到Visual Basic之前，VarPtr函数就已经存在了。
'开始，这个函数存在于VB运行库1.0版中。VarPtr函数的作用获取变量的地址
Private Sub Form_Click()
    Dim long1 As Long
    Dim long2 As Long
    long1 = 10
    '版本1的CopyMemory
    CopyMemory1 long2, long1, 4
    MsgBox long2
    '版本2的CopyMemory
    Dim long3 As Long
    CopyMemory2 VarPtr(long3), VarPtr(long1), 4
    MsgBox long3
End Sub

[ 本帖最后由 ioriliao 于 2010-5-2 13:56 编辑 ]

没看懂， CopyMemory1 long2, long1, 4中的long2, long1是变量还是地址？按函数的声明看像地址，可msg(long2)怎么会是10，long2没初值应该是0的啊。这个函数不是把地址中的数据复制吗，怎么把地址给改了。


[ 本帖最后由 nbaqqqq 于 2010-5-2 13:42 编辑 ]

是地址，因为版本1的目标地址与源地址参数是以引用传递的(byref),就是说byref修饰的参数，传递的是这个参数变量的地址。

哦，明白了，谢谢。

先理解下变量的地址与指向这个地址的值。
xx省xx市xx街xx号就是一个地址，指向这个地址的值就是这个地址就有什么。
比如这个地址是张三家的地址，张三的家有什么呢？这个有什么就是这个地址所指向的值。
CopyMemory1函数参数传递的是变量的地址，然后把源地址指向的值复制到目标地址。

李四家有8个西瓜（李四家地址指向8个西瓜）     用  CopyMemory1 张三家地址, 李四家地址, 4   后 ，张三家里也有了四个西瓜（张三家地址指向了李四家其中的4个西瓜）   可不可以这样理解？而我刚才不理解CopyMemory1 张三家, 李四家, 4是以(byref)传递的，其实就是CopyMemory1 张三家地址, 李四家地址, 4

可以这么理解