GUICreate ("A-Z", 144, 35)
GUISetState (@SW_SHOW)
GUISetBkColor (0xAAAAAA)

Global $AZ = GUICtrlCreateInput ("", 65, 5, 14)
Global $Start = GUICtrlCreateButton ("Start", 5, 5, 60, 25)
Global $Stopp = GUICtrlCreateButton ("Stopp", 79, 5, 60, 25)



While 1
	$nMsg = GUIGetMsg ()
	if $nMsg = -3 Then
		Exit
	EndIf

If $Start = $nMsg Then
			_AZ($AZ)
	EndIf

WEnd

Func _AZ($AZ)

	dim $array[26] = [ "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z" ], $i, $y

Do
	$nMsg = GUIGetMsg ()
    $y = Ubound($array)-1
    $i = Round(Random (0, $y))
    GUICtrlSetData ($AZ, $array[$i])
	Until $Stopp = $nMsg
EndFunc