Cómo terminar la aplicación actual de Visual Basic 6.0

Cuando se usa con una palabra clave adicional , la instrucción End Visual Basic termina la definición de bloque o un procedimiento de esa palabra clave . Cuando se usa solo , la instrucción End obliga a una aplicación termine . Usted puede utilizar la instrucción End en cualquier punto del programa . Programa de un cuadro de mensaje del sistema para asegurarse de que el usuario desea salir de la aplicación antes de la instrucción End ejecuta. La declaración también borra las variables u objetos creados con la instrucción Open en la aplicación. Instrucciones
1

Abra el proyecto de Visual Basic . Haga doble clic en el control " CommandButton " para agregarlo al formulario.
2

Cambie la propiedad Caption de Command1 a " Exit ". Cambie el tamaño del control y arrastrarlo a la ubicación en la forma en la que desea que
3

doble clic en el botón para abrir la función " ) Command1_Click ( " y escriba lo siguiente : .

If MsgBox ( " ¿Está seguro de que desea salir ? " , vbYesNo O vbQuestion ) = vbNo Entonces

Cancel = True

demás

End

End If

Cuando el usuario hace clic en el botón, aparecerá un cuadro de mensaje le pedirá que confirme lo que quiere salir de la aplicación . Si hace clic en " Sí ", la declaración "End" y ejecuta la aplicación termina . De lo contrario, la aplicación continúa .