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>
