Mover Formulário Sem Borda

[kuroi]

codigo pra mover o Form clicando em qualquer parte dele e arrastando:

Dim xx As Integer, yy As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        xx = X
        yy = Y
    End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Me.Left = (Me.Left - xx) + X
        Me.Top = (Me.Top - yy) + Y
    End If
End Sub[/code]
a mesma logica vale pra mover objetos dentro do formulario

[Guest --Nil --]

Eu fiz este codigo no access, mas não reconheceu o Meto Me.Left.

[Koyo4ever]

Deu certinho aki no VB Vlw aewwww