MsgBox "¿Se retorna a la ventana de inicio?", vbYesNoCancel + vbQuestion, "Confirmación"
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Dim Mensaje, Botones, Titulo, RespuestaMensaje = "¿Desea salir?"Botones = vbYesNo + vbQuestion + vbDefaultButton2Titulo = "Escape"Respuesta = MsgBox(Mensaje, Botones, Titulo)If Respuesta = vbYes ThenMostrar1.Visible = False Else End IfEnd IfEnd Sub
Dim respuesta As Integer respuesta = MsgBox("que decea hacer?", vbYesNoCancel, "titulo")Select Case respuesta Case vbYes Debug.Print "elegidio yes" Case vbNo Debug.Print "eligio no" Case Else Debug.Print "cancelar"End Select