file.vb
PublicClass Form1
PrivateSub btnSubmit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnSubmit.Click
Label1.Text = txtName.Text
Label2.Text = txtFathersName.Text
Label3.Text = txtMothersName.Text
Label4.Text = cmbCourse.Text
If optMale.Checked = TrueThen
Label5.Text = "Male"
Else
Label5.Text = "Female"
EndIf
Label6.Text = DateTimePicker1.Value
Label7.Text = txtHobbies.Text
Label8.Text = txtContact.Text
EndSub
EndClass