Скорее всего проблема в том что у тебя утечка памяти.
Откомпилируй свою программу и запусти.
Открой Менеджер задач, Процессы. Выбери в меню Вид - Настройка Колонок, и отметь колонку "GDI обьекты". Посмотри значение у своей программы, если оно постоянно увеличиватеся либо обьем памяти увеличиватеся, значит точно утечка памяти.
Судя по названию Текстового окна ты игрушку пишешь, и наверняка у тебя есть функции типа BitBlt, SelectObject и т.п. Так вот надо удалять все обьекты после использования, Апи функцией - DeleteObject.
А код что ты уже переделал можно вернуть к первоначальному.

Если будут вопросы стучи в аську 193232867 либо на ирц irc.icqinfo.ru #coding

[Pliomera]

то ли беда в том что я кириллицу использую в написании кода

Отож. Беда с этой кириллицей в VB. Еще какая. Попробуй ради прикола скопировать русский текст из редактора VB и вставить хотя-б в сообщение на этом форуме. Там с кодировочками маалость напутано

[XPurple]

If...End If

Тоже такое наблюдал, привел к виду:

Код:

if условие then
operator-со-следующей-строки
elseif условие then
operator-со-следующей-строки
else
operator-со-следующей-строки
end if

Усе работает