This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

Hola grupo:
Necesito mostra un mensaje al usuario (tipo MsgBox) pero quiero que se pueda
seguir usando la aplicacion, el MsgBox me para todo y hay que presionar OK
para continuar.
No quisiera usar un formulario para esto sino una simple funcion como MsgBox
pero que el mensaje no sea modal.
Se puede???


RESPONDE BUHO
=============


Option Explicit
Const MB_DEFBOTON1 = &H0&
Const MB_DEFBOTON2 = &H100&
Const MB_DEFBOTON3 = &H200&
Const MB_ICONOASTERISCO = &H40&
Const MB_ICONOEXCLAMACION = &H30&
Const MB_ICONOHAND = &H10&
Const MB_ICONOINFORMACION = MB_ICONOASTERISCO
Const MB_ICONOPREGUNTA = &H20&
Const MB_ICONOSTOP = MB_ICONOHAND
Const MB_OK = &H0&
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&
Const MB_YESNOCANCEL = &H3&
Const MB_ABORTRETRYIGNORE = &H2&
Const MB_RETRYCANCEL = &H5&


Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long


Function Mi_Msgbox(ByVal Ventana As Long, ByVal TextoCaja As String, ByVal Titulo As String, ByVal BotonesIconos As Long)
 'si deseamos un Msgbox no Modal, bastar� pasar como parametro Ventana=0
 Dim Retval
 Retval = MessageBox(Ventana, TextoCaja, Titulo, BotonesIconos)
End Function