usa AddHandler para asignarle el evento que quieras al control, por ejemplo para un boton seria asi:

AddHandler newButton.Click, AddressOf ButtonClicked

y para usarlo:

Private Sub ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
MsgBox(“Hiciste click en: ” & sender.name & vbCrLf & “ Nombre del boton: ” & sender.Text)
End Sub 

saludos.

chicos pero como es un array debo de poner el indice o como hago

Muchisimas gracias problema resueltooooooooooo

Aorita pongo otro lio mas jajajajaja

La verdad que no te entiendo bien, tienes que explicarte bien que es lo que hace tu programa, esque hablas de listbox y listbox y mas listbox, que me pierdo en si son los mismos del array de listbox que creaste o tienes otro a parte, porque por ejemplo veo que esos metodos que pusiste son de un lst12 que me suena a que es un listbox fuera de el array que creaste.

Lo que te puedo decir por si por ahi le entendi.. es que hagas un simple for recorriendo el array de listbox y poniendole listbox(i).SetSelected(lst12.SelectedIndex, True)  ' esto te lo copie a vos, ni idea si es asi, pero lo que digo es hacer que se seleccione el mismo Index (item..) en cada listbox del array de listbox.

Despues lo de añadir a otro listbox que tenes, no se bien a que te referis, ya que tu evento de lst12_MouseDoubleClick() parece que esta bien segun lo que queres.


pd: Para lo de verificar si un item ya existe, creo que existe una funcion ya para eso si, solo buscala en google o anda viendo los metodos del listbox, que por ahi encontraras una que sea para eso, es cuestion de leer xD

Trata de poner los codigos dentro de las etiquetas de codigo, asi se lee mejor.
Pero lo explicaste bien ahora si, y creo que te has confundido en esta parte:

AddHandler lstname(i).MouseDoubleClick, AddressOf lstadd_MouseDoubleClick
AddHandler lstname(i).SelectedIndexChanged, AddressOf lstadd_MouseDoubleClick
 

Ya que estas haciendo que haga lo mismo cuando se da doble click y cuando la seleccion del item cambia, ya que le pones el mismo procedimiento a esos 2 eventos distintos. El procedimiento que pusiste es el lstadd_MouseDoubleClick.

Asi que para empezar, cambialo por esto:

AddHandler lstname(i).MouseDoubleClick, AddressOf lstadd_MouseDoubleClick
AddHandler lstname(i).SelectedIndexChanged, AddressOf SeleccionarMismoIndex
 

Entonces ahora si.. los eventos estan creados, solo te queda crear esos procedimientos: lstadd_MouseDoubleClick() y SeleccionarMismoIndex().

Private Sub lstadd_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
 If VerifyItem(sender.SelectedItem) = False Then
            lstprog.Items.Add(sender.SelectedItem)
            GetInformation(sender.SelectedItem)
            Suma()
        End If
End Sub
 

Asi lo tenias vs, no se que hacen el GetInformation() ni el Suma(), pero eso sabras vs, despues.. sobre el VerifyItem, esa funcion la haces vs, es hacerque te devuelva True si existe y sino existe entonces devuelve False. Ya te dije que creo que ya existe una funcion en el listbox para verificar si un elemento existe o no, cosa que tendrias que hacer por ejemplo:
 if lstprog.Item.Contains(sender.SelectedItem) = False then
   ...

y no necesitarias de crear la funcion VerifyItem que recorra todos los items verificando si se encuentra o no.

Podrias hacer eso por mientras, ya que lo otro no se bien como lo quieres hacer, porque tienes 6 lstname (o 5 no se como es vb.net con lo del tamaño de arrays) y no se si quieres que al seleccionar un item en el lstname(3) por ejemplo, se seleccione en TODOS los otros lsttime el mismo item, o solo en el lsttime(3).

Pero vamos, que estas cosas tan buenas para pensarlas con papel y lapicera y cuando lo logras hacer te sientes bien de bien jeje. Pero me dices..