Arrastrar formulario

Hola, enorso:

Puedes añadir el siguiente código al formulario:

'\\\
Private Declare Sub ReleaseCapture Lib "user32" ()

Private Declare Sub SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer)

Private Const WM_NCLBUTTONDOWN As Integer = &HA1
Private Const HTCAPTION As Integer = 2
'///

Y en el evento MouseDown añades el siguiente código:
'\\\
Call ReleaseCapture()
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
'///

Y ya está.

Saludos.

"enorso" escribió en el mensaje news:
| Me podrían orientar sobre como desplazar un formulario, logicamente con el
| controlbox desactivado.
| Por ejemplo mediante un boton en el que al pinchar y arrastrar con el raton
| se desplazara todo el formulario.
| ¿Como puedo saber las coordenadas del raton al arrastrar? Se me ocurre que
| mediante diferencia de coordenadas ir actualizando la posición del formulario.
|
| Saludos