Public
Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.Button3.Enabled = False
Me.Button4.Enabled = False
Me.Label2.Visible = False
Me.Label3.Visible = False
Me.Label4.Visible = False
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
Me.Close()
End Sub
Private Sub
RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
RadioButton1.CheckedChanged
If Me.RadioButton1.Checked
= True Then
Me.Button3.Enabled = True
Me.Button4.Enabled = False
Me.Label4.Visible = False
Me.Label3.Visible = False
Me.Label2.Visible = True
End If
End Sub
Private Sub
RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
RadioButton2.CheckedChanged
If Me.RadioButton2.Checked
= True Then
Me.Button3.Enabled = False
Me.Button4.Enabled = True
Me.Label4.Visible = False
Me.Label3.Visible = True
Me.Label2.Visible = False
End If
End Sub
Private Sub
RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
RadioButton3.CheckedChanged
If Me.RadioButton3.Checked
= True Then
Me.Button4.Enabled = False
Me.Button3.Enabled = False
Me.Label4.Visible = True
Me.Label3.Visible = False
Me.Label2.Visible = False
End If
End Sub
End
Class