14 lines
360 B
VB.net
14 lines
360 B
VB.net
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
|