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