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"
code for that please
Dim key As String = "K" & Utility.GenerateGuid
Dim oCL As CLPannelloCouponPunti ' This is the class that contain blue-panel and edittext controls
oCL.Initialize(Me, "oCL", key) ' Initialize (here is executed the previous code in the previous post)
lvCouponsPunti.Add(oCL.GetPanel, CLU.RDY(100dip), key) ' The panel is put in the CustomListView
PannelliPunti.Put(key, oCL) ' Map that contain the pointers of the class