Dim p As Panel
Dim l As Label
l.Initialize("trans")
l.Text = "now is the time for all good men to come to the aid of their country"
l.Gravity = Gravity.LEFT
l.TextSize = 20
l.Color = Colors.Transparent
l.TextColor = Colors.White
l.Tag = p
Dim obj As Reflector
obj.Target = l
'the definition is setEllipsize(TextUtils.TruncateAt)
'TextUtils.TruncateAt is an Enum, which End is listed first
obj.RunMethod2("setEllipsize", "0", "java.lang.int")
p.AddView(l, 3%x, 0, 65%x, 30dip)