Mit Button Schleife initiieren und mit selbigem beenden

Hallo.
die Überschrift sollte alles sagen. Falls nich. Ich habe ein Programm wo ich mit dem Klick auf einen Button eine schleife aktiviere und ich möchte, dass die Schleife mit nochmaligen Klick auf den Button beendet wird. ich dachte mir das so:

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
Do
$dicernd=Random(1,100,1)
If $dicernd>0 And $dicernd<11 Then ;1
$dicenr=1
ElseIf $dicernd>10 And $dicernd<31 Then ;2
$dicenr=2
ElseIf $dicernd>30 And $dicernd<61 Then ;3
$dicenr=3
ElseIf $dicernd>60 And $dicernd<86 Then ;4
$dicenr=4
ElseIf $dicernd>85 And $dicernd<96 Then ;5
$dicenr=5
ElseIf $dicernd>95 And $dicernd<100 Then ;6
$dicenr=6
EndIf

GUICtrlSetImage($Pic1,@ScriptDir&"\Graphics\"&$dicenr&"auge.gif")
GUIGetMsg()
Until $start

EndSwitch


WEnd

Jetz würde ich mich hier natürlich nicht melden wenn es funktionieren würde
Kann mir jemand helfen?

mfg

Nein leider nicht. Aber vielleicht sollte ich das Problem nochmal umschrieben. Mein Ziel ist es eine Art Würfelspiel zu machen. Wenn man auf den button klickt sollen immer wieder verschiedene "Augen" generiert werden, so dass man also den Eindruck hat, man würde würfeln. Die Problematik jetz ist aber, das sich das Bild immer nur einmal ändert...

Jap. Is gewollt. Soll ein kleines Fun-Spiel werden wo 6 sozusagen der hauptgewinn is' und wäre ja lahm wenn die Chancen da 1 zu 6 wären

Wenn man noch Wünsche äussern darf, könntest du eine kleine Verzögerung einbauen, dass die Bilder nich allzusehr vorbeirasen? habs mit TimerInit versucht, weil sich Sleep ja so schlecht macht, aber irgendwie macht das Programm dann nix mehr
Wäre echt super. Vielen vielen dank.

Hier nochmal der Komplette Quelltext:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $dicenr=0
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 291, 354, 302, 218)
$start = GUICtrlCreateButton("Start", 80, 248, 121, 65, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
$Pic1 = GUICtrlCreatePic(@ScriptDir&"\Graphics\1auge.gif", 64, 32, 153, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
$Label1 = GUICtrlCreateLabel($dicenr, 232, 328, 36, 17)
#EndRegion ### END Koda GUI section ###
Global $dice=0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
If $dice=0 Then
$dice=1
ElseIf $dice=1 Then
$dice=0
EndIf

Do
$start=TimerInit()
$end=TimerDiff($start)
If $end>200 Then
$dicernd=Random(1,100,1)
If $dicernd>0 And $dicernd<11 Then ;1
$dicenr=1
ElseIf $dicernd>10 And $dicernd<31 Then ;2
$dicenr=2
ElseIf $dicernd>30 And $dicernd<61 Then ;3
$dicenr=3
ElseIf $dicernd>60 And $dicernd<86 Then ;4
$dicenr=4
ElseIf $dicernd>85 And $dicernd<96 Then ;5
$dicenr=5
ElseIf $dicernd>95 And $dicernd<100 Then ;6
$dicenr=6
EndIf
$start=TimerInit()
EndIf


GUICtrlSetImage($Pic1,@ScriptDir&"\Graphics\"&$dicenr&"auge.gif")
GUIGetMsg()
Until $dicenr=7

EndSwitch


WEnd

Super, vielen vielen Dank