[¤À¨É] ¨Ï¥ÎAPI¨ú±o°}¦Cºû«×

Min

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function ArrayPtr Lib "msvbvm60.dll" Alias "VarPtr" (TargetArray() As Any) As Long
Private Sub Form_Load()
    Dim XXX(1, 2, 3, 4) As Byte
    Dim lpArray As Long
    Dim lDim As Long
      
    Call CopyMemory(lpArray, ByVal ArrayPtr(MD_HTML_Value()), 4)
    Call CopyMemory(lDim, ByVal lpArray, 2)
    Debug.Print "ºû¼Æ   =   " & lDim
End Sub

Min

¦^´_ 3# dechiuan999

±z¦n ¸Õ¸Õ¬Ý³o¼Ë~