msgbox "Press OK to run the MS Paint" Set shell=CreateObject("wscript.shell") Shell.Run("MSPaint.exe")