Ficha 20

Private Sub Alegre_Click()

S_Alegre.Visible = True
S_Triste.Visible = False
C_Copas.Visible = False
C_Ouros.Visible = False
C_Paus.Visible = False
C_Espadas.Visible = False

End Sub

Private Sub Copas_Click()

S_Alegre.Visible = False
S_Triste.Visible = False
C_Copas.Visible = True
C_Ouros.Visible = False
C_Paus.Visible = False
C_Espadas.Visible = False

End Sub

Private Sub Espadas_Click()

S_Alegre.Visible = False
S_Triste.Visible = False
C_Copas.Visible = False
C_Ouros.Visible = False
C_Paus.Visible = False
C_Espadas.Visible = True

End Sub


Private Sub Limpar_Click()

S_Alegre.Visible = False
S_Triste.Visible = False
C_Copas.Visible = False
C_Ouros.Visible = False
C_Paus.Visible = False
C_Espadas.Visible = False

End Sub

Private Sub Ouros_Click()

S_Alegre.Visible = False
S_Triste.Visible = False
C_Copas.Visible = False
C_Ouros.Visible = True
C_Paus.Visible = False
C_Espadas.Visible = False

End Sub

Private Sub Paus_Click()

S_Alegre.Visible = False
S_Triste.Visible = False
C_Copas.Visible = False
C_Ouros.Visible = False
C_Paus.Visible = True
C_Espadas.Visible = False

End Sub

Private Sub Sair_Click()

End

End Sub

Private Sub Triste_Click()

S_Alegre.Visible = False
S_Triste.Visible = True
C_Copas.Visible = False
C_Ouros.Visible = False
C_Paus.Visible = False
C_Espadas.Visible = False

End Sub