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