problemas para mover un image dentro de un picture

[loquillo7]

buenas foreros tengo una consulta quisera mover un image dentro de un picture tanto cuando se mueva el mouse como cuando tenga presionado el boton izquiero del mouse he probado esto:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Move X - Image1.Width / 2 + 20, Y - Image1.Height / 2 + 25
End Sub


'**Aqui si se mueve el image cuando muevo el cursor pero no se mueve cuando tengo presionado el boton izquiero del mouse,aca va otro:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1.Visible = True
Image1.Move X - Image1.Width / 2 + 20, Y - Image1.Height / 2 + 25
End If
End Sub

'**Aqui si se mueve el image cuando tengo presionado el boton izquiero del mouse pero no se mueve cuando muevo el cursor sin apretar nada.

He tratado de juntar los 2 pero siempre funciona solo 1 es posible que puedan funcionar los 2 muchas gracias de antemano.

[loquillo7]

alguna idea??? sino se ha entenido me lo comentan

[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