Bütün listeleri kontrol etme

Merhabalar,
form üzerinde 31 tane liste kutum var,
bu listedeki hangi satıra tıklarsam,
listenin column(1) satırını tanımlamış olduğum
bir Metin kutusuna göndermesini nasıl yapabilirim,
E0=List0.column(1)
gibi, 31 tane liste kutusuna kod yazmadan bunu nasıl yapabilirim.
bilgim dahilinde aşağıdakini yaptım olmadı,
Private Sub Form_Load()
Dim Ctrl As Control
For Each Ctrl In Screen.ActiveForm.Controls

If Ctrl.Name = Me.ActiveControl.Name Then

Me.E0.Value = Ctrl.Column(1)

End If

Next
End Sub

sorununuzun daha iyi anlaşılması ve daha hızlı cevap alabilmek için sorununuzu içeren bir örnek eklermisiniz.

Cevap gelmeyince klasik yöntemle,
biraz emekle hallettim...

form open olayına koyamazsınız listboxlar seçili değildir.
seçtikten sonra aşağıdaki kod çalışır. On error seçilmemiş ListBox larda hataya düşmemesi içidir.

    On Error Resume Next

    Dim c As Control

    For Each c In Me.Controls

        If TypeOf c Is ListBox Then

            MsgBox c.Column(1)

        End If

    Next

Elinize sağlık sayın yandemir,
formun hangi olayına ekleyim bu kodları?

Malesef bir çok olayı denedim çalıştıramadım...