Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.Visible = False
        Dim ans As String = ""
        TextBox1.Text = "LEI HOI MENG"
        MaskedTextBox1.Text = "F5B"
        Label1.Text = "Name"
        Label2.Text = "Class"
        Label3.Text = "Sex"
        Label4.Text = "Birth"
        Label5.Text = "Hobby"
        MaskedTextBox1.Mask = "F0L"
        For a As Integer = 1 To 50
            ComboBox1.Items.Add(a + 1980)
        Next
        For a As Integer = 1 To 12
            ComboBox2.Items.Add(a)
        Next
        For a As Integer = 1 To 31
            ComboBox3.Items.Add(a)
        Next
        ComboBox1.Text = "1999"
        ComboBox2.Text = "1"
        ComboBox3.Text = "19"

        RadioButton1.Text = "Male"
        RadioButton2.Text = "Female"
        RadioButton1.Select()

        CheckBox1.Text = "Football"
        CheckBox2.Text = "Basketball"
        CheckBox3.Text = "Volley Ball"
        CheckBox4.Text = "badminton"
        CheckBox5.Text = "table tennis"
        CheckBox6.Text = "tennis"
        CheckBox1.Checked = True
        CheckBox3.Checked = True
        CheckBox5.Checked = True

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim op As String = ""
        Dim nL As String = Chr(13)
        Dim nT As String = Chr(9)

        op = op & Label1.Text & nT & TextBox1.Text & nL
        op = op & Label2.Text & nT & MaskedTextBox1.Text & nL
        op = op & Label3.Text & nT
        If RadioButton1.Checked = True Then
            op &= RadioButton1.Text
        End If
        If RadioButton2.Checked = True Then
            op &= RadioButton2.Text
        End If
        op &= nL
        op &= Label4.Text & nT
        op &= ComboBox1.Text & "/" & ComboBox2.Text & "/" & ComboBox3.Text
        op &= nL
        op &= Label5.Text & nT
        For a As Integer = 1 To 6
            Dim cb As CheckBox
            cb = Me.Controls("CheckBox" & a)
            If cb.Checked = True Then
                op &= cb.Text & ","
            End If
        Next
        MsgBox(op)
    End Sub

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 3
            Me.Controls("Button" & i).Text = i
            Me.Controls("Button" & i).Tag = i
            Me.Controls("Label" & i).Text = ""
            Me.Controls("Label" & i).Tag = i
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        Dim btn As Button
        btn = CType(sender, Button)
        Me.Controls("label" & btn.Tag).text = btn.Tag
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim mg As Graphics = e.Graphics
        Dim pen1 As New Pen(Color.Red, 3)
        mg.DrawEllipse(pen1, 100, 100, 200, 100)
        mg.DrawLine(pen1, 100, 100, 100, 200)
        mg.DrawLine(pen1, 100, 200, 300, 200)
        mg.DrawLine(pen1, 300, 200, 300, 100)
        mg.DrawLine(pen1, 300, 100, 100, 100)
    End Sub
End Class