Hallo liebe Community..,
habe das problem bei meinem fun Programm [auch genannt fun virus] mit dem man Freunde so ärgern kann, dass ich das so programmiert habe das, wenn man bei der Fage "Hast du Langeweile ?" Ja klickt ca. 100 Fenster kommen wo drinne steht "Immernoch ?"......Nur mein Problem liegt darin das alle Fenster hintereineander kommen und nich über den ganzen Bildschirm verteilt.
Also: konkrete Frage : Wie mache ich das das die Fenster über den Ganzen Bildschirm verteilt sind ?
Mein Bisheriger Code :
x=msgbox ("Hast du Langeweile ?",4,"Hallo")
answer=MsgBox("Echt", vbYesNo,"Frage")
if answer = vbYes then
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
[zichtausend mal öffter ........]
msgbox("Überlegs dir nächstes mal ! xD")
end if
habe das problem bei meinem fun Programm [auch genannt fun virus] mit dem man Freunde so ärgern kann, dass ich das so programmiert habe das, wenn man bei der Fage "Hast du Langeweile ?" Ja klickt ca. 100 Fenster kommen wo drinne steht "Immernoch ?"......Nur mein Problem liegt darin das alle Fenster hintereineander kommen und nich über den ganzen Bildschirm verteilt.
Also: konkrete Frage : Wie mache ich das das die Fenster über den Ganzen Bildschirm verteilt sind ?
Mein Bisheriger Code :
x=msgbox ("Hast du Langeweile ?",4,"Hallo")
answer=MsgBox("Echt", vbYesNo,"Frage")
if answer = vbYes then
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
x=msgbox ("Immernoch ?",4,"??")
[zichtausend mal öffter ........]
msgbox("Überlegs dir nächstes mal ! xD")
end if