Private Sub OKButton_Click()

　　顯示姓名

　　If TextName.Text=“”Then

　　如果姓名為空，則彈出消息框提示用戶

　　Msg=MsgBox(“請您輸入姓名”，48，“填寫”)

　　Exit Sub “退出事件過程

　　Else

　　MainForm.LabName.Caption TextName.Text

　　End If

　　判斷性別

　　If OpMan = True Then

　　MainForm.LabSex.Caption=“男”

　　Else

　　MainForm.LabSex.Caption=“女”

　　End If

　　顯示年齡

　　MainForm.LabAge.Caption=CombAge.Text

　　判斷語句的愛好

　　It h1.Value=1 Then

　　MainForm.L1.Caption=“書法”

　　Else

　　MainForm.L1.Caption=“//”

　　End If

　　If h2.Value=1 Then

　　MainForm.L2.Caption=“攝影”

　　Else

　　MainForm.L2.Caption=“//”

　　End If

　　If h3.Value=1 Then

　　MainForm.L3.Caption=“釣魚”

　　Else

　　MainForm.L3.Caption=“//”

　　End If

　　If h4.Value=1 Then

　　MainForm.L4.Caption=“旅游”

　　Else

　　MainForm.L4.Caption=“//”

　　End If

　　Unload Dialog “卸載對話框

　　End Sub