User Function MessageBox()
// Opções do MessageBox
#define MB_OK 0
#define MB_OKCANCEL 1
#define MB_YESNO 4
#define MB_ICONHAND 16
#define MB_ICONQUESTION 32
#define MB_ICONEXCLAMATION 48
#define MB_ICONASTERISK 64
// Retornos possíveis do MessageBox
#define IDOK 1
#define IDCANCEL 2
#define IDYES 6
#define IDNO 7
// Executa os MessageBox e aguarda os valores de retorno
nRet1 := MessageBox("MB_OK","",MB_OK)
nRet2 := MessageBox("MB_OKCANCEL","",MB_OKCANCEL)
nRet3 := MessageBox("MB_YESNO","",MB_YESNO)
nRet4 := MessageBox("MB_ICONHAND","",MB_ICONHAND)
nRet5 := MessageBox("MB_ICONQUESTION","",MB_ICONQUESTION)
nRet6 := MessageBox("MB_ICONEXCLAMATION","",MB_ICONEXCLAMATION)
nRet7 := MessageBox("MB_ICONASTERISK","",MB_ICONASTERISK)
Return