Как узнать координаты при ReleaseCapture

Option Explicit
Private Const WM_NCLBUTTONDOWN As Long = &HA1&
Private Const HTCAPTION As Long = 2&
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, wParam As Any, lParam As Any) As Long
 
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ReleaseCapture
    Call SendMessage(Picture2.hWnd, WM_NCLBUTTONDOWN, ByVal HTCAPTION, ByVal 0&)
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'не отображается ничего!
    Label1 = Picture2.Left
    Label2 = Picture2.Top
End Sub

Option Explicit
 
Private Type RECT
    iLeft   As Long
    iTop    As Long
    iRight  As Long
    iBottom As Long
End Type
 
Private Declare Function ClipCursor Lib "user32" ( _
                         ByRef lpRect As Any) As Long
Private Declare Function ClientToScreen Lib "user32" ( _
                         ByVal hwnd As Long, _
                         ByRef lpPoint As Any) As Long
 
Private m_bMove As Boolean
Private m_lOffX As Long
Private m_lOffY As Long
 
Private Sub Picture2_MouseDown( _
            ByRef Button As Integer, _
            ByRef Shift As Integer, _
            ByRef x As Single, _
            ByRef y As Single)
    Dim tRC As RECT
    Dim lFr As Long
    
    lFr = (Picture2.Width - Picture2.ScaleWidth) \ 2
    
    ClientToScreen Picture1.hwnd, tRC
    
    tRC.iLeft = tRC.iLeft + x + lFr
    tRC.iTop = tRC.iTop + y + lFr
    tRC.iRight = tRC.iLeft + Picture1.ScaleWidth - Picture2.Width + 1
    tRC.iBottom = tRC.iTop + Picture1.ScaleHeight - Picture2.Height + 1
    
    m_lOffX = x
    m_lOffY = y
    
    ClipCursor tRC
    
    m_bMove = True
    
End Sub
 
Private Sub Picture2_MouseUp( _
            ByRef Button As Integer, _
            ByRef Shift As Integer, _
            ByRef x As Single, _
            ByRef y As Single)
    ClipCursor ByVal 0&
    m_bMove = False
End Sub
 
Private Sub Picture2_MouseMove( _
            ByRef Button As Integer, _
            ByRef Shift As Integer, _
            ByRef x As Single, _
            ByRef y As Single)
    If m_bMove Then
        Picture2.Move Picture2.Left + x - m_lOffX, Picture2.Top + y - m_lOffY
    End If
End Sub

Dim DownX As Single
Dim DownY As Single
Option Explicit
    
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DownX = X
    DownY = Y
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then Picture2.Move Picture2.Left + X - DownX, Picture2.Top ' + Y - DownY
End Sub

Option Explicit
Dim DownX As Single
Dim DownY As Single
 
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DownX = X
    DownY = Y
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim NewLeft As Long
    Dim NewTop As Long
    
    If Button = vbLeftButton Then
        NewLeft = Picture2.Left + X - DownX
        NewTop = Picture2.Top + Y - DownY
        
        If NewLeft >= 0 Then
            If NewLeft <= (Picture1.Width - Picture2.Width) Then
                Picture2.Left = NewLeft
            Else
                Picture2.Left = Picture1.Width - Picture2.Width
            End If
        Else
            Picture2.Left = 0
        End If
        
        If NewTop >= 0 Then
            If NewTop <= (Picture1.Height - Picture2.Height) Then
                Picture2.Top = NewTop
            Else
                Picture2.Top = Picture1.Height - Picture2.Height
            End If
        Else
            Picture2.Top = 0
        End If
    End If
End Sub

Option Explicit
Dim DownX As Single
Dim DownY As Single
 
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DownX = X
    DownY = Y
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim NewLeft As Long
    Dim NewTop As Long
    
    If Button = vbLeftButton Then
        NewLeft = Picture2.Left + X - DownX
        NewTop = Picture2.Top + Y - DownY
        
        If NewLeft >= 0 Then
            Picture2.Left = IIf(NewLeft <= (Picture1.Width - Picture2.Width), NewLeft, Picture1.Width - Picture2.Width)
        Else
            Picture2.Left = 0
        End If
        
        If NewTop >= 0 Then
            Picture2.Top = IIf(NewTop <= (Picture1.Height - Picture2.Height), NewTop, Picture1.Height - Picture2.Height)
        Else
            Picture2.Top = 0
        End If
    End If
End Sub