Objeto.MouseMove
Private Sub Objeto_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)Objeto.propiedad = changeEnd Sub