自前のエクステンション使用。
サンプル
GraphicsWindow.BackgroundColor = "skyblue"
button = Controls.AddButton("run", 200, 100)
Controls.ButtonClicked = onclick
Sub onclick
C = Text.GetCharacter(34)
R = Text.GetCharacter(13) + Text.GetCharacter(10)
code = ""
code = code + "Function setup(a)" + R
code = code + "url = " + C + "http://google.com" + C + R
code = code + "Set obj = CreateObject(" + C + "WScript.Shell" + C + ")" + R
code = code + "obj.Run url, 0, false" + R
code = code + "setup = url" + R
code = code + "End Function" + R
a = Class1.VBSrun(code)
EndSub