PrivateSubForm_Click()Combo.ListIdex=List.ListIdex=Text.Text=List.Text+Combo.TextEdSub