Cómo implementar controles de arrastrar y soltar de vc

Atenuar x1, y1

Subcomando privado5_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)

Si X gt; .Ancho - 50 E Y gt; Comando5.Alto - 50 Entonces

x1 = X

y1 = Y

Fin

End Sub

Subcomando privado5_MouseMove(Botón como entero, Mayús como entero, X como único, Y como único)

Atenuar k como booleano

Si X gt ; Command5.Width - 50 Y Y gt; Command5.Height - 50 Entonces

Command5.MousePointer = 8

k = True

Else

Command5.MousePointer = 1

k = False

Finalizar si

Si botón = 1 y k = True Entonces

Command5.Width = Command5.Width (X - x1)

Command5.Height = Command5.Height (Y - y1)

End If

End Sub