Después de cambiar la ventana de programación de VB a sin bordes, ¿cómo puedo arrastrar la ventana haciendo clic en cualquier lugar? Gracias la la la la.

Simplemente use los eventos mousedown y mousemove combinados. El siguiente programa puede arrastrar y mover el formulario haciendo clic en la parte en blanco del formulario. Dim X0!, Y0!

Subformulario privado_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)

X0 = X

Y0 = Y

End Sub

Sub privado Form_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)

Si el botón = 1 Entonces

Me.Left = Me.Left X - X0

Me.Top = Me.Top Y - Y0

Fin

Fin Sub