Buenas como puedo hacer para que al clickar en un label se mueva el form se que se hacia con el api sendmessage pero no macuerdo como era.


merci

Este ejemplo funciona al arrastrar el label con el mouse.

Código:

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 ReleaseCapture
 SendMessage Me.hWnd, 161, 2, 0
End Sub

No sé si es lo que buscas.


Saludos