Mover formulario con VB

[xinlu]

Hola gente, me gustaría saber que code debo añadir a mi programa para que al pinchar con el ratón sobre cualquier parte del formulario o sobre un objeto pueda desplazar el formulario por la pantalla como si pinchara en la barra de título de la ventana.

[MaN!FesT]

Hola xinlu aqui tu codigo:

Código:

Dim MoveScreen As Boolean
Dim MousX As Integer
Dim MousY As Integer
Dim CurrX As Integer
Dim CurrY As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MoveScreen = True
    MousX = X
    MousY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If MoveScreen Then
        CurrX = Form1.Left - MousX + X
        CurrY = Form1.Top - MousY + Y
        Form1.Move CurrX, CurrY
    End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MoveScreen = False
End Sub

[xinlu]

Gracias manifest_06. Me ha servido de mucho.

[xinlu]

He estado analizando el code, y he descubierto un pequeño fallo. Hay que añadirle esta línea de code al principio del evento MouseDown del formulario:

Código:

If Me.WindowState = vbMaximized Then Exit Sub

Ya que si lo intentas mover maximizado te da error. Gracias de nuevo, manifest_06.

[-SharK_90-]

A mí noo me funciona...¿Por qué será?
Este código para que versión es????mmm...
SALU2

[MaN!FesT]

que raro que haya tantos problemas, a mi me sirve un 100%