VB工程--百例54--鼠标跟随

Option Explicit

Private Sub lbl1_click()
End

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbl1.Move X, Y 使标签框以鼠标指针的位置移动

End Sub

这个程序很简单，只有短短的几行代码。但是却透露出一种思想（人为控制，剑不离手），这是我至今认为最好玩的一个程序。不信您试试！