prova così

Private Sub Slider1_Scroll()
lbl.Caption = Slider1.Value
End Sub