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?
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:
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 ;)
gracias jeje ea justo lo que buscaba