TSSittzungen

Dokumentation/uscntr_TSServer.vb

@@ -0,0 +1,13 @@
+Public Class uscntr_TSServer
+    Public selected As Boolean = False
+
+    Private Sub btnServer_Click(sender As Object, e As EventArgs) Handles btnServer.Click
+        selected = Not selected
+        If selected Then
+            btnServer.BackColor = Color.Green
+        Else
+            btnServer.BackColor = Color.Red
+        End If
+
+    End Sub
+End Class