Методы программируемого перетаскивания

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is CommandButton Then 'опрееляем тип перетаскиваемого объекта
Source.Move X, Y 'перетаскиваем сам объект
End If
End Sub
 
'нужно что бы было можно перетаскивать и во фрейм
Private Sub Frame1_Dragdrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is CommandButton Then
Source.Move X, Y
End If
End Sub
 
'Если объект(кнопка)покидает форму(т.е заходит во фрейм, то значит обхект в рамке и наоборот
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = vbLeave Then
Command1.Picture = LoadPicture(App.Path & "\Картинки\smail).ico")
Text1.Text = "Объект в рамке"
Else
Command1.Picture = LoadPicture(App.Path & "\Картинки\smail(.ico")
Text1.Text = "Объект не в рамке"
End If
End Sub

Option Explicit
Dim Bad As StdPicture, Good As StdPicture, Norm As StdPicture
Private Sub cmdSource_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    cmdSource.Visible = False
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    cmdSource.Move X, Y
    Set cmdSource.Picture = Bad
    cmdSource.Visible = True
End Sub
Private Sub Form_Load()
    Set Bad = LoadPicture(App.Path & "\SmileBad.ico")
    Set Good = LoadPicture(App.Path & "\SmileGood.ico")
    Set Norm = LoadPicture(App.Path & "\SmileNorm.ico")
    Set cmdSource.Picture = Good
    Set cmdSource.DragIcon = Good
    txtState = "Объект в рамке"
End Sub
Private Sub Frame_DragDrop(Source As Control, X As Single, Y As Single)
    cmdSource.Move X, Y
    cmdSource.Visible = True
    Set cmdSource.Picture = Good
End Sub
Private Sub Frame_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    cmdSource.Visible = False
    Select Case State
    Case 2: Set cmdSource.DragIcon = Good: txtState = "Объект в рамке"
    Case 1: Set cmdSource.DragIcon = Bad: txtState = "Объект покинул рамку"
    End Select
End Sub