Ficha 20 ex 1

Private Sub Copas_Click()

Picture5.Visible = True

End Sub
Private Sub Espadas_Click()

Picture7.Visible = True

End Sub
Private Sub Ouro_Click()

Picture6.Visible = True

End Sub
Private Sub Paus_Click()

Picture8.Visible = True

End Sub
Private Sub Reinicio_Click()

Picture1.Visible = False

Picture4.Visible = False

Picture5.Visible = False

Picture6.Visible = False

Picture7.Visible = False

Picture8.Visible = False

End Sub
Private Sub Sair_Click()

End

End Sub
Private Sub Smilealegre_Click()

Picture1.Visible = True

End Sub
Private Sub Smiles_Click(Index As Integer)

Picture4.Visible = True

End Sub
Private Sub Smiletriste_Click()

Picture4.Visible = True

End Sub