Eliminar elemento da listbox com duplo clique

[maluco2able]

Private Sub lstNomes_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstNomes.DoubleClick
        If lstNomes.SelectedIndex <> -1 Then
            lstNomes.Items.RemoveAt(lstNomes.SelectedIndex)
            Try
                Dim Ficheiro As New FileStream("Nomes.txt", FileMode.Create, FileAccess.Write)
                Dim StreamEscrita As New StreamWriter(Ficheiro, System.Text.Encoding.Default)

                StreamEscrita.BaseStream.Seek(0, SeekOrigin.Begin)



                    StreamEscrita.Close()
                    Ficheiro.Close()
            Catch ex As Exception
                MsgBox("Erro: " & ex.Message)
            End Try
        End If
    End Sub

Tenho uma duvida em relaçao ao ciclo para eliminar o elemento da listbox utilizando o doubleclick

Obrigado

[ribeiro55]

Qual ciclo?

Qual é o erro?

[maluco2able]

pelo que o meu professor disse tenho que fazer um ciclo for para escrever todos os elementos do ficheiro txt para a listbox, para depois utilizando o duplo clique para eleminar o elemento selecionado da listbox.

[ribeiro55]

E é essa a tua dúvida? Precisas de saber fazer o ciclo?

Depois de remover o item, podes iterar a listbox e fazer a escrita, ou seja, no espaço que deixaste antes do .Close, podes fazer algo como:

For Each It As String In lstNomes.Items 'presumindo que são strings na lista
    'escreve linha para o ficheiro
Next

[maluco2able]

obrigado pela ajuda.