I am officialy almost stuck. lol,



Option Explicit
Public iOpenScManagerResult As Long
Public iOpenService As Long
Public iGetServiceKeyNameResult As Long
Public iLockServiceDatabaseResult As Long
Public iUnlockServiceDatabaseResult As Long
Public slpMachineName As String
Public slpDatabaseName As String
Public sServiceName As String
Public slpServiceName As String
Public srServiceName As String
Public iLenServiceName As Long


Private Sub Form_Load()
sServiceName = "Dr Solomon's Task Manager" & Null

'get service control number
iOpenScManagerResult = OpenSCManager(slpMachineName, slpDatabaseName, SC_MANAGER_ALL_ACCESS)
'lock service control database so that it can be modified
iLockServiceDatabaseResult = LockServiceDatabase(iOpenScManagerResult)

iGetServiceKeyNameResult = GetServiceKeyName(iOpenScManagerResult, sServiceName, srServiceName, iLenServiceName)
MsgBox srServiceName
iOpenService = OpenService(iOpenScManagerResult, srServiceName, SERVICE_ALL_ACCESS)

're-open service control database
iUnlockServiceDatabaseResult = UnlockServiceDatabase(iLockServiceDatabaseResult)
End Sub