Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4") Dim cmb1 As WinForm.TextBox = e.Form.Controls("Textbox1") Dim cmb2 As WinForm.TextBox = e.Form.Controls("Textbox04") Dim Multi As String = cmb.text Dim Values() As String Values = Multi.split(",") cmb.text=Values(0) cmb1.text=Values(1) cmb2.text=Values(2)