VB6で、Windowsサービスを実装する
サンプルコードがどこかにありませんか?