VB 图片框阴影问题

不太高明的方法：
就是在图片框中等间距地画上黑点或蓝点,就像在网页中选中图片那样。
先把picturebox1的scalemode属性设为pixel，如果有需要的话改一下图片框的填充颜色，否则则为黑点。
以下代码加到click事件中：
for i=0 to picturebox1.width step 2
for j=0 to picturebox1.height step 2
picturebox1.pset(i,j)
next
next