I am trying to do a multi-selection list box it needs to
be done in VBA. I have never used VBA can anybody help?
Thanks

Theresa:

What are you trying to do with a multi-select list box? Determine what is
selected? If so here's one way to approach the code:

Dim objCtrl as Control
Dim intCount as Integer, i as Integer
Set objCtrl = Me!MyListBoxControl
intCount = objCtrl.ListCount
For i = 1 to intCount 'Use intCount -1 if you have included row headers
If Ctrl.Selected(i) = True Then
'Do Something
End If
Next i

Another way is similar:

Dim objCtrl As Control
Dim objItem As Variant
Set objCtrl = Me!MyListBoxControl
For Each objItem In objCtrl.ItemsSelected
'Do Something
Next objItem

--
Steve Arbaugh
ACG Soft
http://ourworld.compuserve.com/homepages/attac-cg


"Theresa" <(E-Mail Removed)> wrote in message
news:1208e01c4424e$b668a490$(E-Mail Removed)...
>I am trying to do a multi-selection list box it needs to
> be done in VBA. I have never used VBA can anybody help?
> Thanks