Visual Basic - Problema al arrastar un formulario

Resulta que si pincho en un formulario y lo arrastro, en ese intervalo de tiempo el programa desatiende el resto de tareas que son en tiempo real.

¿hay alguna forma de poder arrastrar un formulario y que no afecte al resto de la aplicación?

probaste con un Doevents ?

saludos.-

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

Buenas,

Lo he probado y sigo teniendo el mismo problema.

Al final creo que lo voy a hacer separando el programa en dos ejecutables independientes para que no se interrumpan las tareas.