当鼠标移到按钮上时，按钮如何移动到随机的位置上使鼠标不能点击到.txt

VB技巧问答10000例 VB技巧问答10000例

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     Dim nX, nY 
     nX = Rnd * ScaleWidth 
     nY = Rnd * ScaleHeight 
     Command1.Move nX, nY 
    End Sub 
<END>