[RESOLVED] How to move a frame like a form in run time with mouse click and drag?

[senthilkumartd]

Hi,
How to move a frame like a form in run time with mouse click and drag?

I tried the following coding but it is not working? Any idea?

In module,

Public Type Position
    X As Single
    Y As Single
End Type

In form,

Dim Clicked As Position
 
Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Clicked.X = X
Clicked.Y = Y
End Sub
 
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Clicked.X <> 0 Or Clicked.Y <> 0 Then
    Frame1.Left = Frame1.Left + (X - Clicked.X)
    Frame1.Top = Frame1.Top + (Y - Clicked.Y)
    Clicked.X = X
    Clicked.Y = Y
End If
End Sub