'typeface default ...wrap on
edit_reply.SetLayout(5dip,5dip,pnl_reply.Width-55dip,40dip)
Dim cd As ColorDrawable
cd.Initialize2(Colors.White,10dip,2dip,Main.temar)
edit_reply.Background=cd
edit_reply.Padding=Array As Int(50dip,3dip,10dip,3dip)
edit_reply.TextSize=Main.htext
edit_reply.InputType=edit_reply.INPUT_TYPE_TEXT