image1 flyt istedet for picture1 flyt

hej eksperter.
undskyld overskrift.
jeg har en kode der ser sådan her ud. jeg er bare træt af at når man bruger picture er der sådan en mega stor ramme omkring det. og det har jeg fundet ud af at det er der ikke i image. nogle der kan hjælpe mig med at ændre denne kode så jeg kan flytte rundt på et image istedet for picture!

her er min kode:

Option Explicit

Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Public Sub hWndMove(ByVal lnghWnd As Long)
  Call ReleaseCapture
  Call SendMessage(lnghWnd, &HA1, 2, 0&)
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    Call hWndMove(Picture1.hwnd)
  End If
End Sub