Dim items = e.Sender.ItemsIf items.Contains(e.Sender.Text) = false Then
msgbox("不行")
e.Cancel = True
End If