Module MessageBox Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _ Integer, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _ Integer) As Integer Public Sub MessageBox_Main() MessageBox(Form1.Handle, "Hello World!", "MessageBox", vbOKOnly + vbExclamation) End Sub End Module