liTxtWidth = Txtwidth(Alltrim(this.Value), this.FontName, this.FontSize)
liTxtWidth = Txtwidth(Alltrim(this.Value), this.FontName, this.FontSize) this.Width = liTxtWidth * ?