|
Private Sub rbClient_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbClient.CheckedChanged If rbClient.Checked Then lblHost.Visible = True txtServer.Visible = True cmdListen.Text = "Connect" bClient = True End If End Sub
|