求高手制作一个vbs窗口

Set a=CreateObject("WScript.shell")
set ie=wscript.createobject("internetexplorer.application","event_")
ie.menubar=0
ie.addressbar=0
ie.toolbar=0
ie.statusbar=0
ie.width=400
ie.height=130
ie.resizable=0
ie.navigate "about:blank"
ie.visible=1
with ie.document
 .write ""
 .write "想明白生命的意义吗？想真正的活着吗？
"
 '.write "
"
 .write ""
 .write " "
 .write "
"
 .write ""
end with
set wnd=ie.document.parentwindow
set id=ie.Document.all
id.y.onclick=getRef("y")
id.o.onclick=getRef("o")
id.n.onclick=GetRef("n")
do while true
 wscript.sleep 200 
loop
sub event_onquit 'ie退出事件处理过程'
 wscript.quit
end sub
sub y
shuju("yes")
End sub
Sub o
shuju("or")
End sub
Sub n
shuju("no")
End sub
Sub shuju(canshu)
MsgBox "你按了："&canshu
End sub

‘试试

楼上用html做界面啊，有时候会打不开，楼主最好用VB.

msgbox "aaa",4,"bbb"