func doMessage(_data)
  fvar(tp)  
  tp = ('MB_OK' & 'MB_OKCANCEL' & 'MB_YESNO' & 'MB_YESNOCANCEL' & 'MB_RETRYCANCEL' & 'MB_ABORTRETRYIGNORE')[Type]
  tp += ' ' + (' ' & 'or MB_ICONHAND' & 'or MB_ICONQUESTION' & 'or MB_ICONEXCLAMATION' & 'or MB_ICONASTERISK')[Icon]
  println('MessageBox(', isset(WIN_PARENT) ? (WIN_PARENT + '.Handle') : '0', ', PKOLChar(', Message, '), ', 'PKOLChar(', Caption, '), ' + tp + ');')
  event(onMessage)
end