Dim cmb As WinForm.ComboBox = e.SenderDim str As string = e.Form.Controls("ComboBox1").Value
dim s as string = "|1|2|3|4|5|6|7|8|9|".replace("|" & str "|","|")cmb.ComboList = s.trim("|")