Button1 es una clase, no puede ser igual a 0.
Button1_Click es un evento, tampoco puede ser igual a =0.
Sitúate encima del botón creado, pulsa botón derecho->eventos y elige el evento Click. Entonces prueba éste código:
dim n as integer 'Declaras n como variable de tipo integer
n=Message.Question("Deseas Salir", "Si", "No") 'La función message devuelve el número de opción
IF n = 1 THEN
QUIT
END IF
Para iniciarte te aconsejo el libro de Daniel Ridruejo que puedes encontrar en la sección de descargas de éste mismo portal.
Suerte
Foro 
Albacete
