Private Sub Form_Unload(Cancel As Integer) 'Unload the Service
If Not stopService Then
If MsgBox("Are you sure you want to unload the service?..." & vbCrLf & "the service will be stopped", vbQuestion + vbYesNo, "Stop Service") = vbYes Then
NTService1.stopService
lblAnimasi.Caption = NTService1.DisplayName & " Stopping"
Cancel = True
Else
Cancel = True
End If
End If
End Sub