Private Declare Function SetCapture Lib "user32.dll" _
  (ByVal hwnd As Long) As Long
Private Declare Function GetCapture Lib "user32.dll" _
  () As Long
Private Declare Function ReleaseCapture Lib "user32.dll" _
  () As Long
 
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, _
  Y As Single)
 
  With Picture1
    'Befindet sich die Maus über dem Commandbutton?
    If X >= 0 And Y >= 0 And X <= .Width And Y <= .Height Then
      SetCapture .hwnd
 
    'hier Dein code einfügen.
 
    Else 'wenn nicht, Capture lösen
      ReleaseCapture
      .FontBold = False
    End If
 
  End With
 
End Sub