И еще один вопросик...

[Unstat]

Как можно зделать так чтоб код постоянно выполнялся при запуске формы. Или есть ли здесь таймер.

[xolod]

Эх, привыкли люди все-таки к Визуализации Визаульного Бэйсика..
Таймеры создаем/убиваем API-ф-ми SetTimer-KillTimer

[Unstat]

Всеровно не понял как его создать.

[X-BOND]

Всеровно не понял как его создать.

Ленывый вы, однако...

Для начала объявляем глобальную переменную, которая определяет ID таймера, допустим так:
GLOBAL TimerID AS LONG

После создаем "субу" подобного типа:
SUB TimerProc(BYVAL HeWnd AS LONG, BYVAL nIDEvent AS LONG, BYVAL uElapse AS LONG, BYVAL lpTimerFunc AS LONG)
...
...
...
END SUB

Теперь таймер можно и запустить:
TimerID = SetTimer(HWND, 0, [интервал в милисекундах], CODEPTR(TimerProc))

Убивать так:
CALL KillTimer(HWND, TimerID)

[Unstat]

Создаю я таймер ну считает он, а если мышкой по форме водить начинаешь то он несчитает перестаешь считает. Так же если маленькое время поставить считать будет, а на 1000 он ни как.