Portal
É bem isso que vc mostrou mais vou dar algo só mais um pouco arrumado
- Código:
'Classe 1
'Checar se a classe é vip e bloqueala.
If Class = 1 Then ' 1 é o número da classe bloqueada
Call AlertMsg(Index, "Desculpe esta classe é VIP!")
Exit Sub
End If
'Classe 2
'Checar se a classe é vip e bloqueala.
If Class = 2 Then ' 1 é o número da classe bloqueada
Call AlertMsg(Index, "Desculpe esta classe é VIP!")
Exit Sub
End If
'Classe 3
'Checar se a classe é vip e bloqueala.
If Class = 3 Then ' 1 é o número da classe bloqueada
Call AlertMsg(Index, "Desculpe esta classe é VIP!")
Exit Sub
End If
'e purai vai!
