Маленький вопросик по VBA

Кратко - задание: сделать так, чтобы в экселе при выполнении программы VBA всплывала картинка "тыква". И нужно доработать программу, чтобы окно с этой картинкой постоянно сжималось. На фото оно сжимается по нажатию F5 только 1 раз, а нужно чтобы это происходило постоянно, все меньше и меньше с каждым нажатием. Предположительно через цикл Do Loop While. Если кто знает, помогите пожалуйста!