Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1.Left = X - (Image1.Width / 2)
Image1.Top = Y - (Image1.Height / 2)

End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1.Left = X - (Image1.Width / 2)
Image1.Top = Y - (Image1.Height / 2)

End If
End Sub

Option Explicit

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Left = X - (Image1.Width / 2)
    Source.Top = Y - (Image1.Height / 2)
End Sub

Private Sub Form_Load()
    Me.Line (10, 10)-(600, 600), vbBlack
    Image1.Left = 10
    Image1.Top = 10
    
    Image1.DragMode = vbAutomatic
End Sub

    Source.Left = X - (Source.Width / 2)
    Source.Top = Y - (Source.Height / 2)