Sub CenterText 'can't get this to work yet, or setCenterText
Dim ss As String
ss = mLbl.Text.Trim
Do While cvs.MeasureStringWidth(" " & ss & " ", mLbl.Typeface, mLbl.textsize) < mLbl.Width
ss = " " & ss & " " 'but only really any good for monospace font
Loop
mLbl.Text = ss
End Sub