CODIGO CLASE

msgbox("hello world")
dim var
var=msgbox("mensaje5",vbokcancel,"titulo")
var=msgbox("mensaje2",vbyesno,"titulo")
var=msgbox("mensaje3",vbcritical,"titulo critico")
var=msgbox("mensaje4",vbquestion,"titulo pregunta")
var=msgbox("combinacion",vbcritical + vbyesno,"mensaje final")

dim caja
caja=inputbox("escriba numero")
if (caja>10) then
msgbox("usted digito "+ caja +"Es mayor a 10")
else
msgbox("usted digito "+ caja +"Es menor a 10""Es mayor a 10")
end if
 for i=2 to 10 step 2
  msgbox("numero es: "&i)
 next

 dim abrir
 set abrir=createobject("wmplayer.ocx.7")
 set cdrom=abrir.cdromcollection
 cdrom.Item(x).eject