Código
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