Locked [Alternativa] Lbound

[top10]

[HIDE-THANKS][LENGUAJE=VB]'MSVBVM60.__vbaLbound

Public Declare Function iLBound Lib "MSVBVM60" Alias "__vbaLbound" (ByVal ptr As Long, ByVal Exp As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Long, ByVal Length As Long)

 

Public Function Alternative_LBound(vbv As Variant) As Long

Dim a As Long

Dim aa As Long

a = VarPtr(vbv) + &H8

CopyMemory aa, ByVal a, &H4

CopyMemory a, ByVal aa, &H4

Alternative_LBound = iLBound(&H1, a)

End Function[/LENGUAJE][/HIDE-THANKS]