'Declare Function MsgBox (text As String, buttons As Long, Title As String) As Long

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

DECLARE Sub FormClick

MsgBox "Just A test",2,""
MsgBox "Just A test",1+32+256,"RapidQ"
MsgBox "MsgBox by Jernej Simoncic",64,"About"

'Shows standard Message Box, with buttons in local language (unlike RapidQ's
'MessageDlg, which always shows English buttons)
'
'Usage: [button& =] MsgBox text$, buttons&, title$
'
' Thanks to RapidQ, you can use it as Sub or Function.
'
' button&   Returns clicked button
' text$     Text to display in message box
' buttons&  Select which buttons and icons to display and which button is
'           default.
' title$    Message box title
'
'buttons& values (you can combine them):
' value   description
' 0       Display OK button only.
' 1       Display OK and Cancel buttons.
' 2       Display Abort, Retry, and Ignore buttons.
' 3       Display Yes, No, and Cancel buttons.
' 4       Display Yes and No buttons.
' 5       Display Retry and Cancel buttons.
' 16      Display Critical Message icon.
' 32      Display Warning Query icon.
' 48      Display Warning Message icon.
' 64      Display Information Message icon.
' 0       First button is default.
' 256     Second button is default.
' 512     Third button is default.
' 768     Fourth button is default.
'
'button& values
' 1   OK
' 2   Cancel
' 3   Abort
' 4   Retry
' 5   Ignore
' 6   Yes
' 7   No
'
' by Jernej Simoncic
'
Function MsgBox (text As String, buttons As Long, Title As String) As Long
  MsgBox=MessageBox(Form.Handle,text,Title,buttons)
End Function