Do While i < MaxCupons
Comand(i).Initialize("")
Comand(i).Color = Colors.Black
dashboard.AddView(Comand(i), Config.GetIntegerDef("painellargura", 250dip), Config.GetIntegerDef("painelaltura", 300dip))
Comand(i).Height = Config.GetIntegerDef("painelaltura", 300dip)
Comand(i).Width = Config.GetIntegerDef("painellargura", 250dip)
Comand(i).Tag = 0
i = i + 1
Loop