пример использования потоков в VB2008 для бота на Бетфайр