Hi Andrew,

I think I made scroll increase in month increment if clicked on right side using below code

Private mCurrentScrollPos As Long
Private Sub FilmDateScroll_Change()

FilmDate.Text = Format(CDate(FilmDateScroll.Value), "d mmm yyyy")
    
If (FilmDateScroll.Value < mCurrentScrollPos) Then
    
        FilmDateScroll.LargeChange = DateDiff("d", _
                                                DateAdd("m", -1, CDate(FilmDateScroll.Value)) _
                                                , CDate(FilmDateScroll.Value))
Else
        FilmDateScroll.LargeChange = DateDiff("d", _
                                        CDate(FilmDateScroll.Value), _
                                        DateAdd("m", 1, CDate(FilmDateScroll.Value)))
End If
    
mCurrentScrollPos = FilmDateScroll.Value
                                           
End Sub

 

Let me know if there is something else I should consider.

Thanks,

Surendra