Чудик, у тебя один из таймеров работающим остается. Короче черт ногу сломит в твоих раскорячных кодах, но исправляется это просто.
В процедуре Timer2_Timer за строкой Unload afterround1 поставь Exit Sub
Код офигенный =) Моя подпись в тему =)