Dim minHeight As Int = su.MeasureMultilineTextHeight(lblfeedpost1,lblfeedpost1.Text)
lblfeedpost1.Height = Max(50dip, minHeight)
pnl.Height = lblfeedpost1.Height + 15%y
Dim ItemHeight As Int =pnl.Height
SetItemHeight(lvmenufeed,ItemHeight ,index,"",pnl)
postenlarged = True
buttonlike.Top = lblfeedpost1.Height + 7%y
buttoncomment.Top = lblfeedpost1.Height + 7%y
lblfeeddate1.Top = lblfeedpost1.Height + 7%y
lbllike.Top = lblfeedpost1.Height + 7%y