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
这个程序很简单，只有短短的几行代码。但是却透露出一种思想（人为控制，剑不离手），这是我至今认为最好玩的一个程序。不信您试试！ 原文链接：/vb/260394.html