Dim cd As ColorDrawable
cd.Initialize2(Colors.RGB(124,177,193),6,0,Colors.RGB(124,177,193))
txQtaCoupon.Initialize("txQtaCoupon")
txQtaCoupon.Background = cd
txQtaCoupon.TextSize = 13
txQtaCoupon.TextColor = Colors.Black
txQtaCoupon.Gravity = Gravity.BOTTOM + Gravity.RIGHT
txQtaCoupon.InputType = txPunti.INPUT_TYPE_NUMBERS
txQtaCoupon.Text = "0"