求这个的全部vb代码，感谢各位大神

求这个的全部vb代码，感谢各位大神

Private Sub Command1_Click()
Dim o As Control, c As Control
Dim os As String, cs As String
For Each o In Me.Controls
If TypeName(o) = "OptionButton" Then
If o.Value = True Then os = o.Caption
End If
Next
For Each c In Me.Controls
If TypeName(c) = "CheckBox" Then
If c.Value = 1 Then cs = cs & c.Caption & ","
End If
Next
cs = Mid(cs, 0, Len(cs) - 1)
Text2.Text = "姓名: " & Text1.Text & vbCrLf & _
"出生日期: " & Combo1.Text & Combo2.Text & Combo3.Text & vbCrLf & _
"所属院系: " & Combo4.Text & vbCrLf & _
"政治面貌: " & os & vbCrLf & _
"职称: " & List1.Text & vbCrLf & _
"爱好: " & cs
End Sub