比如combobox name is"cmbox"

IF cmbox.ListIndex = 0 Then cmbox.Text = "Family"
Else
IF cmbox.ListIndex = 1 Then cmbox.Text = "Colleague"
'Else If .....
txtTemp.Text = cmbox.Text