Setting an Initial listbox value

[GeeHaa]

Hi,

Im trying to set an the default selected value of a listbox to "Model". The code highlights "Model" but the .Value and .Text properties remain blank. How do I set these to = "Model". If I select it manually it works.

LBO_Layout.AddItem ("Model")
LBO_Layout.AddItem ("Active")

Dim layout As AcadLayout
Dim layouts As AcadLayouts
Set layouts = ThisDrawing.layouts
For Each layout In layouts
If (Not (layout.Name = "Model")) Then
LBO_Layout.AddItem (layout.Name)
End If
Next layout

LBO_Layout.Text = "Model"

Thanks

[GeeHaa]

Never Mind

LBO_layout.Setfocus
LBO_Layout.Text = "Model"

Works

Thanks

[andrewpuller3811]

try

        For i = 0 To LBO_Layout.ListCount - 1
            If LBO_Layout.List(i) = "Model" Then
                LBO_Layout.ListIndex = i
                Exit For
            End If
        Next i