rtlmovememory.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Option Explicit

Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Sub Main()
    Dim L1 As Long, L2 As Long
    L1 = &H11223344
    RtlMoveMemory L2, L1, 4
    MsgBox "L2=" & Hex(L2), vbInformation, "RtlMoveMemory L2, L1, 4"
End Sub