Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For Each sp As ServiceProcess.ServiceController In ServiceProcess.ServiceController.GetServices() If sp.ServiceName "OpenVPN" AndAlso sp.Status 4 Then sp.Stop() MessageBox.Show("Service arêté", "Have fun !!!", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If Next MessageBox.Show("Service introuvable", "Not found !!!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Sub