It relies on the fact that VB removes Debug.Print statements from the compiled EXE. Use Debug.Print to print something that will cause an error. Divide by zero is simple enough.
Public Function IsCodeCompiled() As Boolean On Error GoTo ErrorHandler Debug.Print 1 / 0 IsCodeCompiled = True Exit FunctionErrorHandler: IsCodeCompiled = False Exit FunctionEnd Function
Tip Submitted By: David Hay