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 使标签框以鼠标指针的位置移动