Segue o código.
Private Sub conferir_Click()
If slide9.Resultado.Value = 6 Then
slide9.acertou.Visible = True
Else
slide9.errou.Visible = True
End If
End Sub
Private Sub conferir_Click()
If slide9.Resultado.Value = 6 Then
slide9.acertou.Visible = True
Else
slide9.errou.Visible = True
End If
End Sub