Ok I'm making a program that has 3 games, everything is ok, it's in portuguese, so i will translate from PT to EN

in this game, I've 3 images: jessica_mini, mensagem and mensagem2
in this game, I've 1 label: mensagens_lidas_label, it shows the number of messages taken by the player

mensagem means message

this isn't working:
        Dim showMS1 As Integer
        Dim showMS2 As Integer
        Dim mensagens_lidas As Integer
        mensagens_lidas = 0
        showMS1 = 1
        showMS2 = 1
        If showMS1 = 1 Then
            If jessica_mini.Bounds.IntersectsWith(mensagem.Bounds) Then
                MsgBox("la la la")
                mensagem.Hide()
                mensagens_lidas = mensagens_lidas + 1
                mensagens_lidas_label.Text = mensagens_lidas
                showMS1 = 0
            End If
        End If

        If showMS2 = 1 Then
            If jessica_mini.Bounds.IntersectsWith(mensagem2.Bounds) Then
                MsgBox("la la la")
                mensagem2.Hide()
                mensagens_lidas = mensagens_lidas + 1
                mensagens_lidas_label.Text = mensagens_lidas
                showMS2 = 0
            End If
        End If

what that should do is:
when the player(jessica_mini) touches the mensagem image, a message box appears » working
when the player(jessica_mini) touches the mensagem2 image, a message box appears » working
the images (mensagem and mensagem2 hide after being touched » working
the label mensagens_lidas_label shows the number of messages taken by the player » it shows 1 after i take the first message but it doesn't show 2 when i take the 2 messages i don't know why

the action jessica_mini.Bounds.IntersectsWith(mensagem2.Bounds) should just be executed when showMSG2 or showMS1 are iqual to 1, but after i say showMSG1/showMSG2 are iqual to 0, the action, still be executed.