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