lngReturn = ShellExecute(Me.hWnd, vbNullString, UpgradeFileName, vbNullString, App.Path, SW_SHOWNORMAL)
lngReturn = ShellExecute(Me.hWnd, "runas", UpgradeFileName, vbNullString, App.Path, SW_SHOWNORMAL)