Also es geht darum ich hab formboarderstyle auf None

möchte aber trotzdem das mein fenster bewegbar bleibt!
ich habe schon diesen code den ich im Internet gefunden habe ausprobiert doch dieser funktioniert bei mir nicht.

Code:
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 Long, _
  lParam As Any) As Long
 
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Picture1_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
  Dim lResult As Long
  If Button = 1 Then
    Call ReleaseCapture
    lResult = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, _
      HTCAPTION, 0&)
  End If
End Sub
hat wer noch ne andere lösung?