1. Visual Basic - Curso completo teoria y practica

Para probar el menú que acaba de crear, ingrese el
siguiente código:
Private Sub MnuArchivoArticulo_Click()
End Sub
MsgBox “Seleccionó la opción Artículo”
Private Sub MnuArchivoCliente_Click()
End Sub
MsgBox “Seleccionó la opción Cliente”
Private Sub MnuArchivoVendedor_Click()
End Sub
MsgBox “Seleccionó la opción Vendedor”
Private Sub MnuArchivoSalir_Click()
End Sub
Unload Me
Private Sub MDIForm_Unload(Cancel As Integer)
End Sub
Dim RESP As Integer
RESP = MsgBox(“¿Desea terminar la aplicación?”, _
vbQuestion + vbYesNo, “Pregunta”)
If RESP = vbYes Then
End
Else: Cancel = True
End If
Pág. 121