problemas para mover un image dentro de un picture

[obravista]

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Select Case Button
Case 0
Image1.Move X - Image1.Width / 2 + 20, Y - Image1.Height / 2 + 25
Case 1
Image1.Move X - Image1.Width / 2 + 20, Y - Image1.Height / 2 + 25
Case 2
Image1.Move X - Image1.Width / 2 + 20, Y - Image1.Height / 2 + 25

End Select

End Sub


en este caso el control Imagen1 tiene la propieled enabled a false
puesto que al entrar en el picture el puntero se coloca encima del control imagen1 y no se produciria el evento del picture