this is a part of the code:
...
...
Produse_selectate.Caption = IIf(ps.ListCount = 0, 0, ps.ListCount - 1)
Produse_ramase.Caption = IIf(pt.ListCount = 0, 0, pt.ListCount - 1)
'here I get the error
ps.SetFocus
pbin.Enabled = pt.ListCount > 1 And Not Regim =...