Peperl

Hi everbody. I have a doubt.

I have an usercontrol (it's a bar, where I put the name of the form), and I want that when I move it, the form move too. Then, I put this lines in the UserCotnrol:

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
oldX = X
oldY = Y
End If
End Sub
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = vbLeftButton) Then
UserControl.Parent.Move UserControl.Parent.Left + (X - oldX), UserControl.Parent.Top + (Y - oldY)
DoEvents
End If
End Sub

And works fine, but the form left a "tail" as I move it, and when I move it very faster appears me an error sayn that the memory of the battery is insuficient (the original palabra is PILA in Spanish, I suposse that the traduction in English was battery)

How can I done for the form moves correctly?

Myth

at which point are u actually specifieng what button equals to?

Peperl

Button is a Visual Basic variable. When you define an Mouse_Move event (for example), is something like this:

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

where Button is the button pressed to the usercontrol, shift i don't know what it and X and Y are the position of the mouse.

Flyguy

Have a look here:
http://vbaccelerator.com/article.asp?id=1160

Peperl

Thanks for the reply FlyGuy. It sounds great, I'm gonna try and I comment it is the post