Prevate Sub Command1_click()Shell"rundll32.exe url.dll,FileProtocolHandler "& App.Path & "\12.exe",vbMaximizedFocusEnd Sub