Private Sub spin_days_Change()
txt_days.Value = spin_days.Value
End Sub
Sub UP()
Dim lngVal As Long
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
lngVal = osld.Shapes("spin_days").OLEFormat.Object.Value
osld.Shapes("spin_days").OLEFormat.Object.Value = lngVal + 6
End Sub
Sub DOWN()
Dim lngVal As Long
Dim osld As Slide
Set osld = SlideShowWindows(1).View.Slide
lngVal = osld.Shapes("spin_days").OLEFormat.Object.Value
osld.Shapes("spin_days").OLEFormat.Object.Value = lngVal - 6
End Sub