|
Private Sub rbServer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbServer.CheckedChanged If rbServer.Checked Then lblHost.Visible = False txtServer.Visible = False cmdListen.Text = "Listen" bClient = False End If End Sub
|