MsgBoxAdv

Public 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

'Call from within any form like this:

Call MessageBox(Me.hWnd, _
"This is a test in API Message Box", _
"API Message Box", vbInformation)