Цикл Repeat ... Until

Repeat

тело цикла

Until условие

Цикл повторяется до тех пор, пока условие не станет истинным. Заметьте, что цикл repeat (повторять) всегда выполняется хотя бы раз, даже если значение UNTIL инициализруется, как ложное - false.

Пример:

PUBLIC SUB Form_Open()
DIM I AS Integer
REPEAT
PRINT Timer
UNTIL Timer > 10
END