主题：关于复选框

不行，不可以......如果要做，只能用图片来做，点一下换一个图片。

参考代码

 

If e.sender.basecontrol.tag = Nothing OrElse e.sender.basecontrol.tag = "选中" Then
    e.sender.image = getimage("d:\test.jpg")
    e.sender.basecontrol.tag = "不选中"
Else
    e.sender.image = getimage("d:\test.png")
    e.sender.basecontrol.tag = "选中"
End If