verb$ = "properties" SEI.SHELLEXECUTEINFO SEI\cbSize = SizeOf(SHELLEXECUTEINFO) SEI\fMask = #SEE_MASK_NOCLOSEPROCESS | #SEE_MASK_INVOKEIDLIST | #SEE_MASK_FLAG_NO_UI SEI\lpVerb = @verb$ File$ = "notepad.exe" SEI\lpFile = @File$ ShellExecuteEx_(@SEI) If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf