[needforhelp]

Hello,
I'm currently experiencing a quite annoying problem.
I've made a small code which is adding some items to a standard VB menu when program is running (From a list box).
Code is as follow :

Code:

dim w,x as integer
    While w < list1.ListCount
    w = w + 1
    
   Load menu(w)
    x = w - 1
    menu(w).Caption = list1.List(x)
    Wend

Everything is working fine except for 1 thing :
I want just the currrently selected item to be checked.
I've wrote the following code in the menu :

Code:

Private Sub menu_Click(Index As Integer)
menu(Index).Checked = True
end sub

It's checking the currently selected item but not un-checking the previous item.
Is there some way to uncheck all the previous items?
Thanks in advance!
All the best,
Need for Help!

[digioz]

You mean something like:

Code:

menu(Index - 1).Checked = False
...

[Keithuk]

Well because its a control array you can use a For/Next loop to remove all check marks then just check the selected Index.

Code:

Private Sub menu_Click(Index As Integer)

Dim N As Integer

'Find the Lower and Upper Index value
For N = LBound(menu) To UBound(menu)
     menu(N).Checked = False
Next
menu(Index).Checked = True

End sub

I don't have VB on my comp at work so I can't try it. Providing LBound and UBound return values it should work.