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