Как определить статус службы? - VB

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

Добрый день всем. Подскажите пожалуйста, как определить статус службы? Знаю, что для определения текущего состояния службы предназначена API функция QueryServiceStatus. Есть код на С++, но переделать его на VB не получается. Делаю:

hSCManager = OpenSCManager(vbNullString, vbNullString,
SC_MANAGER_CONNECT)
hService = OpenService(hSCManager, 'MSSQLSERVER', SERVICE_QUERY_STATUS)
b = QueryServiceStatus(hService,???? - дальше не знаю.

Заранее спасибо.

Решение задачи: «Как определить статус службы?»

textual
                            Листинг программы 
                        
                            Private Declare Function ControlService Lib 'advapi32.dll' 
    (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As SERVICE_STATUS) As Long