Запуск программы в качестве службы - VB

Формулировка задачи:

Здравствуйте ! Требуется помощь вот по какому вопросу : Сваял сервер БД ( работает по TCP) в виде обыкновенного EXE-файла. Все отлажено. Но , требуют , так как прога будет запускаться из под Win NT/2000 , чтобы она запускалась в виде службы. Подскажите , где можно чего-то посмотреть по этому вопросу или как это сделать ? Или может быть , как говрил Ленин - 'пойти другим путем ?' С уважением ко всем ...

Решение задачи: «Запуск программы в качестве службы»

textual
                            Листинг программы 
                        

                            Private Sub tmrMain_Timer()
  ' wie immer: Fehlerbehandlung aktivieren
  On Error GoTo tmrMain_Err
 
  ' Wichtig! Diese Variable True setzen, solange
  ' die Aktion andauert
  bDoing = True
  DoEvents
 
  ' ####
  ' Hier die Aktion ausfГјhren bzw. Aktions-Prozedur 
  ' aufrufen
  '
  ' Am besten im    endwelche Warteschleifen, denn diese benГ¶tigen viel Prozessorzeit.
                        