Dragging And Dropping Frames

[lavarock09]

I Have This Code To Drag My Frame

Private Sub Frame4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim OffsetX As Integer
Dim OffsetY As Integer
    OffsetX = x
    OffsetY = y
    Frame4.Drag vbBeginDrag
End Sub

but that doesnt drop it

how do i drop the frame