Option Explicit

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim p As PictureBox
    Set p = Picture1
[color=0000FF]    If (X > 0 And X < p.Width) And (Y > 0 And Y < p.Height) Then
        Call SetCapture(p.hwnd)
        p.Appearance = 1
    Else
        Call ReleaseCapture
        p.Appearance = 0
    End If[/color]
End Sub

谢谢！