pulling a frame

I want a function to be executed when the user does a mousedeown on a frame and then drags to the left. How can I implement this ??

I figured something out myself... here the code (In case I get flamed for not sharing :-) )

Dim blMouseDown As Boolean
Dim iX As Integer
Dim iY As Integer
Private Sub frameTool_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
blMouseDown = True
iX = X
iY = Y
End Sub

Private Sub frameTool_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If iX > X + 2000 Then
If blMouseDown Then
'do your stuff
End If
End If

End Sub

Private Sub frameTool_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
blMouseDown = False
iX = 0
iY = 0
End Sub