Dragging Forms

Can anyone tell me how I can make the form itself , not a control, draggable if the borderstyle is set to 0? Thanx

This one should work:

Code:

---

Dim xx, yy

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    xx = X: yy = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        left = left + X - xx
        top = top + Y - yy
    End If
End Sub

---

Yeah man Thanx alot!

Hi.

Check this tip: http://www.vb-world.net/tips/tip114.html

Larisa

Thanx for your help, too, Larisa. Its greatly appreciated! :)