Я не совсем понял, что ты имеешь в виду. Делай цикл отдельно от функции, в ней только вывод объектов. Потом помещай функцию в цикл с условием, например:
While Not KeyHit(1)
If varShow Then funcShow(): varShow = 0
...
...
...
If что-нибудь Then varShow=1
Wend