Private Sub Form_Load()
Dim installFlag As Boolean
Dim uninstallFlag As Boolean
    NtServiceControl1.LogonAccount = "SystemAccount"
    NtServiceControl1.ServiceName = "Test"
    NtServiceControl1.DisplayName = "Test"
    NtServiceControl1.StartupType = "auto"
    installFlag = InStr(Command$, "-install") >  0 
    uninstallFlag = InStr(Command$, "-uninstall") >  0 
    If uninstallFlag And NtServiceControl1.ServiceIsInstalled() Then
        NtServiceControl1.LogEvent  1 , "Uninstalling"
        NtServiceControl1.UninstallService
        Unload Me
        Exit Sub
    ElseIf Not NtServiceControl1.ServiceIsInstalled And installFlag Then
        NtServiceControl1.LogEvent  0 , "Installing"
        NtServiceControl1.InstallService
        Unload Me
        Exit Sub
    End If
    NtServiceControl1.LogEvent  0 , "Starting"
    NtServiceControl1.RequestScmStopNotification
    NtServiceControl1.LogEvent  0 , "Started"
End Sub

Private Sub NtServiceControl1_ReceivedScmStopNotification(ByVal errorCode As Long, ByVal errorDetail As String)
    NtServiceControl1.AnnounceStoppingNow
    Unload Me
End Sub