Sizing issue with SegmentedControl

this is an old topic… but it seems like its still an issue (at least with Windows).
So here is what I did

' segCnt is # of segments
' width is desired width of control

Dim w As Integer=Max(5,(width-segCnt)/segCnt)
'' set each segment Width = w-1
' sg.sizetoFit

Yep. Still a problem in 2019r2 on Windows 10.