Изменение счётчика итераций цикла

$Arr = 7

For $i = 0 To $Arr
MsgBox(0, "111", $i)
; If $i = 3 Then ExitLoop
Next

Func _bbb()
;И отсюда, по некому событию я хочу изменить $Arr
EndFunc

$endcount = 3
$i = 0

While $i <= $endcount
	ConsoleWrite($i & @CRLF)
	$i = $i + 1
WEnd

Global $iTmp = 0, $iArr = 7
HotKeySet('{ESC}', '_Exit')
AdlibRegister('_bbb')

While 1
   _For()
   Sleep(1000)
WEnd


Func _bbb()
   $iArr = Random(1, 25, 1)
EndFunc ;==>_bbb

Func _For()
   For $i = 0 To $iArr
	  ConsoleWrite(StringFormat('> $i = %s To %s\n', $i, $iArr))
   Next
EndFunc ;==>_For

Func _Exit()
   AdlibUnRegister('_bbb')
   Exit
EndFunc ;==>_Exit