' 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
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)