RunningAsExe – Determine whether the code is running in an EXE or DLL

' Return True if the application is running as an EXE' Return False if the application is running as a DLLFunction RunningAsExe() As Boolean    ' get the codebase of the running assembly    Dim codeBase As String = Reflection.Assembly.GetExecutingAssembly.CodeBase    ' extract the extension    Dim ext As String = System.IO.Path.GetExtension(codeBase)    ' return True if extension is EXE    Return String.Compare(ext, ".exe", True) = 0End Function