Private Declare Function GetModuleFileName Lib "kernel32" Alias _ "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, _ ByVal nSize As Long) As LongPrivate Declare Function GetModuleHandle Lib "kernel32" Alias _ "GetModuleHandleA" (ByVal lpModuleName As String) As Long' return the application's filename'' it is similar to App.Path+App.ExeName, but it also' works when the program is run on a remote workstation' (in that case App.Path sometimes fails)'' In interpreted mode it returns the VB5 or VB6 executable filenameFunction GetAppFilename() As String Dim hModule As Long Dim buffer As String * 256 ' get the handle of the running application hModule = GetModuleHandle(App.EXEName) ' get the filename corresponding to that handle GetModuleFileName hModule, buffer, Len(buffer) GetAppFilename = Left$(buffer, InStr(buffer & vbNullChar, vbNullChar) - 1)End Function


Virginia’s Clean Economy Act Soars Ahead
Virginia has made significant strides towards achieving its short-term carbon-free objectives as outlined in the Clean Economy Act of 2020. Currently, about 44,000 megawatts (MW)