Mover Formulario clickando en posicion determinada

[50l3r]

Veran estoy haciendo mi formulario si ninguna barra, para cerrar y demas, pero necesito poder mover el formulario y al no tener barra no se como

como puedo hacer para poder mover el formulario apretando en una posicion determinada?

[skapunky]

Código (vb) [Seleccionar] Expandir

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

Usa estas declaraciónes y después añade al form lo siguiente:

Código (vb) [Seleccionar] Expandir


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    ReleaseCapture
    SendMessage Me.hwnd, &HA1, 2, 0&
End Sub

Saludos 

[50l3r]

gracias jeje ea justo lo que buscaba