主题：关于拖动鼠标事件

想做一个拖动鼠标触发效果，比如按住鼠标右键，滑过TEXT控件，控件内容自动变化，怎么处理。我自己在TEXT的MOUSEMOVE事件中加入鼠标状态决定，没有效果。

If MouseButton = MouseButtons.Right Then
e.Form.Controls("TextBox2").value = "move"
End If

此段代码加在了textbox2的mousemove事件中，无效，但把条件去掉，则鼠标经过，textbox2的内容就可变，反应很快。

我就是想做一个用于鼠标右键按住多选几个控件的功能，

比如做一排小正方形的TEXT控件，可用为FALSE,但鼠标由第一个开点右键按住，向右移动，到第四个松开鼠标右键，使四个TEXT控件变色，并变更其中内容，

要求每经过一个TEXT，TEXT都可以马上做出相应的变色与内容变化，而不是最后松开鼠标才变。