Na época em que pesquisei, pelo menos foi uma dica que funcionou corretamente, tanto que no tópico que você citou o Fabio confirmou o funcionamento :

por FabioPrade » 12 Mar 2012, 23:36
Boa noite Mauro, aqui funcionou na perfeiçao, quem sabe sabe.

Procure analizar seus procedimentos que antecedem ao evento Click ou refazer desde o inico a dica.

[]s

Na época em que pesquisei, pelo menos foi uma dica que funcionou corretamente, tanto que no tópico que você citou o Fabio confirmou o funcionamento :

por FabioPrade » 12 Mar 2012, 23:36
Boa noite Mauro, aqui funcionou na perfeiçao, quem sabe sabe.

Procure analizar seus procedimentos que antecedem ao evento Click ou refazer desde o inico a dica.

[]s

Eh verdade caro Mauro, eu estava fazendo errado.

Coloquei no evento change da multipage: if me.multipage1.value = 0 then me.listview.visible = true else me.listview.visible = false end if

Fiz um teste aqui seguindo rigorosamente sua dica e funcionou a contento

Obrigado pelo retorno.

A propósito, gostei do estilo do forum. Bem direcionado e o "layout" é bem legal. Vou participar mais vezes.

At

Para não ter que listar um por um tente isto:

Private Sub MultiPage1_Change()
Dim lista As Control

For Each lista In UserForm2.Controls
If Left(TypeName(lista), 4) = "List" Then
UserForm2.Controls.Item(lista.Name).Visible = False
UserForm2.Controls.Item(lista.Name).Visible = True
End If
Next

End Sub

Olá pessoal eu também tinha esse mesmo problema até que alguem me deu essa luz
é só fazert isso e pronto
Isso =
Private Sub MultiPage1_Click(ByVal Index As Long)

Me.ListView1.Visible = False
Me.ListView1.Visible = True
End Sub

Valeuuuuuuuu!