Voici un petit code que j'ai fait, je le poste pas dans les sources ça serait un peu abusé 
dialog sondage {
title "Etes vous un bon scripteur ?"
size -1 -1 126 42
option dbu
button "Oui", 1, 19 13 35 15, ok
button "Non", 2, 71 13 35 15, ok
}
on *:dialog:sondage:*:*:{
if ($devent == init) {
mdx MarkDialog $dname
mdx.dll SetMircVersion $version
}
elseif ($devent == sclick) {
if ($did == 1) { echo -a Ah bon ! Il me semblait que non... }
elseif ($did == 2) { echo -a J'en étais sûr... }
}
elseif ($devent == mouse) {
tokenize 32 $gettok($dll(mdx.dll,MoveControl,$dname 1),2-,32)
if ($mouse.x >= $1 && $mouse.x <= $calc($1 + $3) && $mouse.y >= $2 && $mouse.y <= $calc($2 + $4)) {
mdx MoveControl $dname 1 $rand(1,$calc($dialog($dname).w - 30)) $rand(1,$calc($dialog($dname).h - 50))
did -f $dname 1
}
}
}
alias -l mdx { dll mdx.dll }
Vous devez avoir la dll MDX.DLL dans la racine de votre script !
Pour le lancer, /dialog -m sondage sondage
