Formularios modales VB6

Seguramente al momento de programar, te has encontrado con la necesidad de llamar a un formulario desde VB6 y deseas que no avance el programa hasta que salgan de dicho formulario, mm no sé, se me ocurre un formulario que reemplace a un msgbox, recién hice esto y es por eso que escribo la solución.

cuando usamos el comando msgbox “Hola“, se muestra en la pantalla una ventana con el saludo y el foco en el botón Aceptar, y no avanza hasta que pulses Aceptar. Pero que pasa si llamas a un formulario emergente (que no abarque toda la pantalla) para mostrar algún aviso o seleccionar algunas opciones, y deseas que ahí se quede el foco, Bueno pues eso no sucede de manera normal en VB6, aunque la solución es muy sencilla. Para esto debemos decirle a VB6 que es un formulario Modal.

Para esto vamos a escribir lo de siempre, pongamos un ejemplo que al pulsar el boton1 se dispare dicho formulario.

private sub boton1_click()

frmAviso.show vbmodal

end sub

y Listo, al pulsar el botón, se muestra la ventana, pero la secuencia no continúa hasta salir del form que se llamó.