prova così
Private Sub Slider1_Scroll()
lbl.Caption = Slider1.Value
End Sub
prova così
Private Sub Slider1_Scroll()
lbl.Caption = Slider1.Value
End Sub
Aiutami a ritrovare l’interesse per le piccole cose che sono alla base di tutte le promesse del futuro che cresce, perché sono le sfumature a dare vita ai colori e a farci tornare in mente le cose più pure dei giorni migliori