Bueno, tenia la necesidad de hacer esa comprobacion... asi que lo comparto, de esta forma el codigo no se desperdiciara en un proyecto a medias :laugh: :laugh:
Option Explicit
'MSVBVM60
Private Declare Sub GetMem1 Lib "MSVBVM60" (ByVal lpSource As Any, ByRef Destination As Any)
Private Sub DumbSub(): End Sub
Public Function IsPCode() As Boolean
Dim bTmp As Byte
Call GetMem1(AddressOf DumbSub, bTmp)
IsPCode = (bTmp <> &HC3)
End Function
Como promete el titulo de la funcion comprueba si hemos sido compilados como P-Code o bien como Native Code :)
Saludos ;)