Dim MyAutosizedLabel As Label
MyAutosizedLabel.Initialize("")
MyAutosizedLabel.Visible = False
Activity.AddView(MyAutosizedLabel, 0,0,0,0)
MyAutosizedLabel.TextSize = 14
MyAutosizedLabel.Text = Text
Dim ItemHeight As Int = su.MeasureMultilineTextHeight(MyAutosizedLabel, MyAutosizedLabel.Text)
Log(ItemHeight)
MyAutosizedLabel.RemoveView
Dim k As Int
k=ItemHeight+340
clv2.Add(CreateListItem(title, text, username, added, clv2.AsView.Width, IntToDIP(k)), IntToDIP(k), id)