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