Private Sub Modifier_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim LstItem As ListItem
Set LstItem = ListView1.SelectedItem
TxtNumero = LstItem.Default
Me.Modifier.SpecialEffect = fmSpecialEffectSunken
End Sub