
Sub SpinButton1_SpinDown() 'Diminuisci del valore assegnato alla propietà SmallChange Me.TextBox1 = CDate(Me.TextBox1) - Me.SpinButton1.SmallChange End Sub Sub SpinButton1_SpinUp() 'Aumenti del valore assegnato alla propietà SmallChange Me.TextBox1 = CDate(Me.TextBox1) + Me.SpinButton1.SmallChange End Sub |
Private Sub SpinButton1_SpinDown() 'Diminuisci del valore assegnato alla propietà SmallChange permanenza.TextBox1 = CDate(permanenza.TextBox8) - permanenza.SpinButton1.SmallChange TextBox8.Value = TextBox1.Value End Sub Sub SpinButton1_SpinUp() 'Aumenti del valore assegnato alla propietà SmallChange permanenza.TextBox1 = CDate(permanenza.TextBox8) + permanenza.SpinButton1.SmallChange TextBox8.Value = TextBox1.Value End Sub |
