VB如何让控件的边框闪动

用透明窗体在控件上的位置上画一个闪动的Shape。透明窗体的鼠标动作设置穿透。
这样看起来就像是控件边框闪动。

效果简单点的话不用那么麻烦，除了没有 borderstyle 属性的按钮什么的不能闪，其他的应该都可以通过 timer 闪，在窗体上放置个计时器 timer，设置interval 为100，再放置个 text1 ，最好将其 appearance 设置为 0 -flat ，这样闪起来不至于动作太大，然后利用 text 的 mousemove 事件启动计时器闪，利用 form 的 mousemove 事件停止计时器即可。

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Text1.BorderStyle = 1 Then
 Text1.BorderStyle = 0
Else
 Text1.BorderStyle = 1
End If
End Sub