问一个巨简单的问题，请问如何进行普通控件的拖放操作？

Question

Option ExplicitPrivate lngX As Long
Private lngY As LongPrivate Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Select Case Source.Name
    Case "Picture1"
        Picture1.Move (X - lngX), (Y - lngY)
    Case Else
    End Select
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Button
    Case vbLeftButton
        lngX = X
        lngY = Y
        Picture1.Drag
    Case Else
    End Select
End Sub

Answer 1

Dim bM As Boolean
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
bM = False
End SubPrivate Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If bM = False Then
        Picture1_MouseDown 1, 0, X, Y
        bM = True
    End If
End Sub