Haz esto desde cero:
Crea un formulario, ponle borderstyle a 0(none)
Pon en el formulario un label: yo he puesto label1.
y pega este código:
estado=1 -> se ha pulsado el botón del mouse (mousedown)
estado=0 -> se ha soltado (mouseup)
Crea un formulario, ponle borderstyle a 0(none)
Pon en el formulario un label: yo he puesto label1.
y pega este código:
Código [Seleccionar]
Dim posx As Integer, posy As Integer, estado As Integer
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
posx = X
posy = Y
estado = 1
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If estado = 1 Then Form1.Move Form1.Left + X - posx, Form1.Top + Y - posy
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
estado = 0
End Sub
estado=1 -> se ha pulsado el botón del mouse (mousedown)
estado=0 -> se ha soltado (mouseup)