Opa rlm muito obrigado,
Consegui fazer a primeira parte, que era carregar os títulos (nomes) na listbox, agora nao consegui carregar os subtítulos (subnomes), nao encontrei nada sobre MultiPage(i), poderia me ajudar?
Gostaria que: ao selecionar no primeiro Listbox1 um nome, carregasse no segundo Listbox2 as sub-Abas, e agora selecionar no Listbox2 as sub-Abas, carregasse no Listbox3 os botoes.
Alguma ajuda?
<img class="go2wpf-bbcode" src=" https://ibb.co/yX7kQ8Z ">
Private Sub Load_Departments() 'LOAD DEPARTMENTS
Dim i As Integer
Dim PageName As String
ListBox5.Clear
For i = 0 To MultiPage2.Count - 1
PageName = MultiPage2.Pages(i).Caption
ListBox5.AddItem PageName
Next
End Sub
Private Sub ListBox5_Click()
Dim i As Integer
Dim PageName As String
Dim NewPageName As String
ListBox6.Clear
For i = 0 To MultiPage2.Count
PageName = MultiPage2.SelectedItem.Caption
NewPageName = MultiPage3.Pages(i).Caption
ListBox6.AddItem NewPageName
Next
End Sub
Postado : 28/11/2019 3:13 pm