RESOLVIDO
Estava a usar mal o parametro
If ListBox2.Items.Item(Y) >= 1 And ListBox2.Items.Item(Y) <= 13 Then
ContaCarta += 1
End If
↧