DÍA_Mes_Año...Progresivamente

Private Sub HScroll1_Change()

Label1.Caption = HScroll1

End Sub
Private Sub HScroll2_Change()

Label2.Caption = HScroll2

End Sub
Private Sub HScroll3_Change()

Label3.Caption = HScroll3

End Sub