mouseUp事件
Select Case e.Sender.SelectedIndex Case 0 e.Form.Controls("text_saomiao").SelectEnd Select