Hallo!
Doch es gibt eine Möglichkeit. Die bastelst dir eine leere Form und setzt alle Buttons drauf die eine MSGBox so bietet und noch ein Label mit WordWarp = True und AutoSize = True. Dann übergibst du dieser Form welche Buttons sichtbar sind und welche nicht (Visible, denn was er nicht sieht kann er nicht klicken). Dann übergibst du den Text.
In die Form_Resize schreibst du rein das folgendes passiert:
with form1
.width=label1.width+2*Label1.left
.height=label1.height+label1.top+button1.height+150 'kann auch Button 2, 3 oder 9 sein und die 150 wähltst du so das es gut aussieht, also auch meinetween 300.
end with
In die Prezdur Form_Unload, nicht Form_Terminate schreibst du dann die Übergabeparameter rein, die die Rückgabewerte enthalten. Du musst die Borderstyle und die ShowInTaskBar so apassen das es einer „echten“ MSGBox ähnelt. Wenn du auch noch die Bilder dazu haben willst, musst du obige Beschreibung einfach erweitern.
Und das Ding pipt dann nur wenn du es willst!
Gruß Christian