How can I write a windows2000 service program in VB