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.