Código de control de arrastre en VB

Escribí un programa de muestra para usted y el control arrastrado es Label1. En este programa, solo hay un control Etiqueta (la propiedad del nombre es Etiqueta1) y un formulario. El programa es el siguiente:

'Defina una variable booleana para identificar si el control se puede arrastrar

Dim canDrag As Boolean

Private Sub Form_Load()

'Cuando se carga el formulario, establece su valor en falso (es decir, el control no se puede arrastrar)

canDrag = False

End Sub

Subetiqueta privada1_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)

'Cuando se presiona el mouse, el control se puede arrastrar, pero esta acción no se realiza aquí

canDrag = True

End Sub

Subetiqueta privada1_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)

Si canDrag Entonces 'Si canDrag es verdadero, arrastre el control cuando se mueve el mouse

Label1.Left = Label1.Left + X

Label1.Top = Label1.Top + Y

End If

End Sub

Subetiqueta privada1_MouseUp(Botón como entero, Mayús como entero, X como único, Y como único)

'Loose Cuando el mouse está encendido, el control no se puede arrastrar

canDrag = False

End Sub