主题：复选组合框 下面 的项目 ，不勾选

 
此主题相关图片如下：1.png

复选组合框 下面 的项目 ，不勾选，要怎么写呢？

在 复选组合框 的 textchanged 写的代码： 

If  e.Form.Controls("DropBox1").value = "导购"   Then
    If  e.sender.value.Contains("VIP开卡数")   Then
        messagebox.show("以【导购】为单位时,不能同时勾选【VIP开卡数】,请重新选择!","提示示")
'这里写 vip开卡数 的勾选取消掉        

    End If
End If

参考代码

Dim str As String = "1,2,VIP开卡数"
str = System.Text.RegularExpressions.Regex.Replace(str, ",*VIP开卡数,*", "")
msgbox(str)