Para ello, se debe utilizar la función MessageBox API en lugar de la incorporada en la función MsgBox. La función de la API tiene una sintaxis similar, pero se necesita un argumento adicional que indica que la ventana padre del
cuadro de diálogo de mensaje (puede usar Me.hWnd), y el orden de los botones de Título y argumentos se invierte.
Aún más interesante, todas las constantes de Visual Basic se puede utilizar
sin ningún problema para el argumento de botones, es decir, se puede envolver la Api en una funcion que tome los mismos argumentos
y el mismo orden que el Msgbox estandar.
Para usar la funcion MessageBox deben declarar esto primero:
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
y para crear nuestro propio msgbox con el mismo orden y los mismos argumentos el codigo es este:
Function MsgBox2(Prompt As String, Optional Buttons As VbMsgBoxStyle, _
Optional Title As Variant) As VbMsgBoxResult
If IsMissing(Title) Then Title = App.Title
MsgBox2 = MessageBox(Screen.ActiveForm.hWnd, Prompt, Title, Buttons)
End Function
Espero y le pueda servir a muchos.
