Moving forms around a scree

[mfoster]

Hi

I am developing an Point of sale system . The forms do not follow conventional windows design as the caption bar is removed. At the top of the form is a frame with info about the form.

The problem is that my app is an MDI form and the user needs toi be able to move windows around the form as they choose.

normally, this would be done by selecting the caption bar of the form and dragging it to the new location. However if the form has no caption bar, then is there any other way by using API calls then the form could be moved around the screen by the user

regards

Mark

[Matthew Gates]

You don't need API for this, use this code.

Dim prevX As Single, prevY As Single
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    prevX = X
    prevY = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Move Left - (prevX - X), Top - (prevY - Y)
End Sub