¿Como hacer esto?

[& eDu &]

Bueno, quiero hacer esto para eso pongo el ejemplo tan sencillo:

en un modulo tengo:

Código (vb) [Seleccionar] Expandir

Public Function Mensaje()
Msgbox()
End Function

y en el form

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Mensaje("jaja")
End Sub


Entonces deberia de salir un msgbox con el texto jaja , se que el codigo esta mal hecho pongo este ejemplo para que sepais mas o menos como se hace, ahora.......
¿Como se hace? Gracias

[aaronduran2]

Pues sería algo así.

En el módulo:

Código (vb) [Seleccionar] Expandir

Public Function Mensaje(ByVal Titulo As String, ByVal Texto As String, ByVal Estilo As VbMsgBoxStyle)
    MsgBox Texto, Estilo, Titulo
End function

En el formulario:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Mensaje "Hola", "Prueba de mensaje", vbOKOnly
End Sub

Esto tan solo es un ejemplo. Puedes personalizarlo de diferentes formas. Podrías hasta crear tu propia caja de mensaje en un formulario y darle la apariencia que tu quieras.

Saludos.

[cassiani]

Y más o menos que "función" tendría usar una "función" que utilice la "función" "MsgBox"? para simular un MsgBox? como si no exsitiera dicha función y trabajarás solo con API's... 

¿rendundante? 

[& eDu &]

Yo solo queria como hacerlo, es para fomentarlo en otros proyecots con otras formas.