Expand|Select|Wrap|Line Numbers
- Public Class Form1
- Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
- End Sub
- Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
- If Me.RadioButton1.Checked = True Then
- Me.PictureBox1.Visible = True And
- Me.PictureBox2.Visible = False
- Me.PictureBox3.Visible = False
- Me.PictureBox4.Visible = False
- End If
- End Sub
- Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
- If Me.RadioButton2.Checked = True Then
- Me.PictureBox2.Visible = True
- Me.PictureBox1.Visible = False
- Me.PictureBox3.Visible = False
- Me.PictureBox4.Visible = False
- End If
- End Sub
- Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
- If Me.RadioButton3.Checked = True Then
- Me.PictureBox3.Visible = True
- Me.PictureBox1.Visible = False
- Me.PictureBox2.Visible = False
- Me.PictureBox4.Visible = False
- End If
- End Sub
- Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
- If Me.RadioButton4.Checked = True Then
- Me.PictureBox4.Visible = True
- Me.PictureBox1.Visible = False
- Me.PictureBox2.Visible = False
- Me.PictureBox3.Visible = False
- End If
- End Sub
- Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles ButtonExit.Click
- Close()
- End Sub
- Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles SSRC.TextChanged
- End Sub
- End Class