Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox1.Visible = True
GroupBox2.Visible = False
End Sub
Private Sub RadioButtonBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonBox1.CheckedChanged
If RadioButtonBox1.Checked = True Then
GroupBox1.Visible = True
GroupBox2.Visible = False
Else
GroupBox1.Visible = False
GroupBox2.Visible = True
End If
End Sub
Private Sub RadioButtonBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonBox2.CheckedChanged
If RadioButtonBox1.Checked = True Then
GroupBox1.Visible = True
GroupBox2.Visible = False
Else
GroupBox1.Visible = False
GroupBox2.Visible = True
End If
End Sub
End Class
|