file.vb
PublicClass Form1
PrivateSub btnOk_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnOk.Click
Dim nm AsString
Dim post AsString
Dim qual AsString = ""
nm = TextBox1.Text
If opManager.Checked = TrueThen
post = "Manager"
ElseIf opEng.Checked = TrueThen
post = "Engineer"
ElseIf opAcc.Checked = TrueThen
post = "Accountant"
Else
post = "Clerk"
EndIf
If chkBE.Checked Then
qual = qual &"BE, "
EndIf
If chkMBA.Checked Then
qual = qual &"MBA, "
EndIf
If chkCA.Checked Then
qual = qual &"CA, "
EndIf
If chkGraduate.Checked Then
qual = qual &"Graduate"
EndIf
MessageBox.Show("Name: "& nm &" Post: "& post &" Qualification: "& qual,
"Details", MessageBoxButtons.OK, MessageBoxIcon.Information)
EndSub
EndClass