Hola,

A ver si te sirve este "truco"

1.-Mover un Form sin caption ¡Al fin un método sencillo!

'--------------------------------------------------------------------
'NOTAS: '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

Saludos.
Guillermo

> Tengo una forma sin bordes (borderstyle=0). Dentro de él tengo un label.
> Mi pregunta es ¿Cómo puedo mover la forma si hago clic sobre el label?
>
> Saludos
> Sergio
>

=====================================================
¿No has visitado mis páginas personales?
¿A que esperas?
http://www.wcostasol.es/guiller/indice.htm

NUEVO!!! Ya está el magazine VB Online en castellano:
http://www.wcostasol.es/vbonline/indice.htm
=====================================================