APIビューワそのままだとAnyだから使いにくいな。
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
  (Destination As Any, Source As Any, ByVal Length As Long)

Integerの例ならこう書き換えると動く。
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
  (ByRef Destination As Integer, ByRef Source As Integer, ByVal Length As Long)

...
CopyMemory a,b,2