HRESULT MessageBox(
LPCWSTR lpszText, // pointer to the text to be displayed
LPCWSTR lpszTitle, // pointer to the title of the box
UINT fuStyle, // style of the message box
int * piRetval // pointer to the return value
);
Option Explicit
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
Private Sub Command1_Click()
MessageBox Me.hwnd, "just a test string", "aaa", 0
End Sub
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