Перетаскивание объектов с их видимостью

[Rostik Ultra (2)]

Как сделать чтобы при перетаскивании объекта он двигался вслед за мышкой (как при перетаскивании окна в винде) ?

[Viper]

отслеживать движение мыши, стирать старое изображение (или рисовать поверх через XOR), рисовать новое... другого не дано

[Крост]

Код: Выделить всё

Dim DownX As Single
Dim DownY As Single
Option Explicit

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DownX = X
    DownY = Y
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Frame1.Move Frame1.Left + X - DownX, Frame1.Top + Y - DownY
    End If
End Sub