arrastrar formulario

Hola,

intenta este código:

Dim NuevaPosicion As New System.Drawing.Point
Dim PosX As Integer
Dim PosY As Integer

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
PosX = Me.MousePosition.X - Me.Location.X
PosY = Me.MousePosition.Y - Me.Location.Y
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
NuevaPosicion = Me.MousePosition
NuevaPosicion.X = NuevaPosicion.X - (PosX)
NuevaPosicion.Y = NuevaPosicion.Y - (PosY)
Me.Location = NuevaPosicion
End If
End Sub


Recuerda que si estás sobre un control, este efecto no funcionará, es decir,
sólo funciona cuando el puntero del ratón se encuentra sobre el formulario.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"" wrote:

Como puedo hacer un formulario el cual lo pueda arrastrar con el mouse desde
cualquier parte del formulario. y no solo con la barra de titulo