How to make a service from VB??

[Chris]

After you get the OCX, Juz do it with the following code.

With NTService1
    Select Case Index
    Case 0 'Install
        .StartMode = svcStartAutomatic
        .DisplayName = "My Service"
        .ServiceName = "My Service"
        .Install
    Case 1 ' Uninstall
        .ServiceName = "My Service"
        .Uninstall
    End Select
End With