Ficha nº19

1.

Código:

Private Sub copas_Click()

    Alegre.Visible = False

    I_S_Triste.Visible = False

    I_Copas.Visible = True

    I_Ouros.Visible = False

    I_Paus.Visible = False

    I_Espadas.Visible = False

End Sub

Private Sub espadas_Click()

    Alegre.Visible = False

    I_S_Triste.Visible = False

    I_Copas.Visible = False

    I_Ouros.Visible = False

    I_Paus.Visible = False

    I_Espadas.Visible = True

End Sub

Private Sub ouros_Click()

    Alegre.Visible = False

    I_S_Triste.Visible = False

    I_Copas.Visible = False

    I_Ouros.Visible = True

    I_Paus.Visible = False

    I_Espadas.Visible = False

End Sub

Private Sub paus_Click()

    Alegre.Visible = False

    I_S_Triste.Visible = False

    I_Copas.Visible = False

    I_Ouros.Visible = False

    I_Paus.Visible = True

    I_Espadas.Visible = False

End Sub

Private Sub s_alegre_Click()

    Alegre.Visible = True

    I_S_Triste.Visible = False

    I_Copas.Visible = False

    I_Ouros.Visible = False

    I_Paus.Visible = False

    I_Espadas.Visible = False

End Sub

Private Sub s_triste_Click()

    Alegre.Visible = False

    I_S_Triste.Visible = True

    I_Copas.Visible = False

    I_Ouros.Visible = False

    I_Paus.Visible = False

    I_Espadas.Visible = False

End Sub

Private Sub sair_Click()

    Dim opcao

    

    opcao = MsgBox("Quer sair do programa?", vbQuestion + vbYesNo, "Sair")

    If opcao = vbYes Then

        End

    End If

End Sub