result=msgbox("Would you like to install?",4+32,"Yi Xi")

Dim message

Select Case result
Case vbYes
message = "^q^"
createobject("WScript.Shell").run "INSTALL.JAR"
Case vbNo
message = "Installation cancelled."
End Select

msgbox message, vbCritical, "Yi Xi"