RE:Problema al arrastar un formulario
lo que sucede es que al dar el foco al formulario se pierde el enfoque de los demas
si lo arrastas desde la forma directamente
'Mover un Form sin caption
'Listado a insertar en un módulo (.bas)
'si se quiere poner en un formulario (.frm)
'declarar la función como Private y quitar el Global de las constantes
'Constantes y declaración de función:
'Constantes para SendMessage
Global Const WM_LBUTTONUP = &H202
Global Const WM_SYSCOMMAND = &H112
Global Const SC_MOVE = &HF010
Global Const MOUSE_MOVE = &HF012
#If Win32 Then
Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
#Else
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
#End If
'Este código se pondrá en el Control_MouseDown...
Dim lngRet As Long
'Simular que se mueve la ventana, pulsando en el Control
If Button = 1 Then
'Envía un MouseUp al Control
lngRet = SendMessage(Control.hWnd, _
WM_LBUTTONUP, 0, 0)
'Envía la orden de mover el form
lngRet = SendMessage(FormX.hWnd, _
WM_SYSCOMMAND, MOUSE_MOVE, 0)
End If