O comando abaixo é numa Listview e funciona corretamente. Preciso de ajuda para fazer o mesmo comando no Listbox

Ao dar um clique duplo na Listview, o comando leva a informação "Nome do Funcionário" para o formulário Folha, na Textbox Funcionario.

Private Sub ListView1_DblClick()

Dim j As Integer
j = (ListView1.SelectedItem.Index) + 1
Index = (ListView1.SelectedItem.Index) 'linha do ListView

              FrmFolha.txtFuncionario.Value = ListView1.ListItems(Index).ListSubItems(1).Text '1ª coluna do ListView

Unload Me

End Sub