problemas con el CheckedListBox al seleccionar

[denpz]

Hol a a todos buenas noches tengo un problema con el CheckedListBox1 lo que pasa que lo que quiero hacer q al estar seleccionando algún ítem si es true lo vaya agregando a un array pero no encuentro como, en ocasiones manda el mensaje y en otros no a un q tenga la palomita puesta ,este es el código que uso. El CheckedListBox1 esta llenado a una base de datos. O alguna ida como resolver este tema. Gracias asta pronto
Sub CheckedListBox1SelectedIndexChanged(sender As Object, e As EventArgs)
Dim i As Integer = CheckedListBox1.SelectedIndex
If CheckedListBox1.GetItemChecked(i) = True Then
msgbox(CheckedListBox1.Text)
End If
End Sub

[eperedo]

El código en si, me parece que está bien, me parece que más va por el tema del evento, si tu le das click a un checkbox te mostrará el mensaje con el texto que tenga, si le das click sobre el mismo checkbox no se ejecutará ningún código porque el evento se produce cada vez que se cambia el índice.
Podrías probar con el evento ItemCheck. Este se produce antes de que el checkbox cambie su estado, el código podría ser así:

Código vb.net:

Dim i As Integer = CheckedListBox1.SelectedIndex
If CheckedListBox1.GetItemChecked(i) = falseThen
msgbox(CheckedListBox1.Text)
else
msgbox("Elemento Eliminado")
End If
 

Cualquier duda me avisas.

[denpz]

Muchas gracias no se como agradecerte ya andaba desesperado por q no me salía y con el código q me enviaste realiza lo que quiero muchas gracias, y otra vez gracias.