Wartung Bugfix

This commit is contained in:
ms
2025-10-06 16:29:54 +02:00
parent 81151c5eb0
commit 754a83e559
3 changed files with 3 additions and 3 deletions

View File

@@ -280,7 +280,7 @@
Clipboard.SetText(host)
End Sub
Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.CheckedChanged
Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.Click
Dim result As MsgBoxResult
If chkWartung.Checked Then
result = MsgBox("Hiermit werden alle Anmeldungen von ThinClients unterbunden. Sicher? ", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Warnung")