---

Hvordan kan jeg putte navnene/caption fra alle menuer på
en form ind i en ListBox?

Jeg har prøvet at lave nogle Loops med funktionerne
GetMenu ()
GetSubMenu ()

Men jeg kan sgu ikke finde ud af det?

Nogle der har en funktion?

--
Mvh.... Tim Sørensen
56º 24'209 N / 10º 55'631 E

---

Hej Tim

Se her:

Dim oCtrl as Object
For each oCtrl in Controls
If TypeOf oCtrl Is Menu Then
Debug.Print oCtrl.Name, oCtrl.Caption
End If
Next

"Tim Sørensen" <dondata@vip.cybercity.dk> wrote in message
news:b4iss2$1l5n$1@news.cybercity.dk...
> Hvordan kan jeg putte navnene/caption fra alle menuer på
> en form ind i en ListBox?
>
> Jeg har prøvet at lave nogle Loops med funktionerne
> GetMenu ()
> GetSubMenu ()
>
> Men jeg kan sgu ikke finde ud af det?
>
> Nogle der har en funktion?
>
> --
> Mvh.... Tim Sørensen
> 56º 24'209 N / 10º 55'631 E
>
>

---

"Johnny E Jensen" <emde@emde123456.dk> wrote
> Hej Tim
>
> Se her:
>
> Dim oCtrl as Object
> For each oCtrl in Controls
> If TypeOf oCtrl Is Menu Then
> Debug.Print oCtrl.Name, oCtrl.Caption
> End If
> Next

Jammen.. Det er jo enkelt!?
Her hr jeg prøvet både API og SubClassing!

1000 tak :)

--
Mvh.... Tim Sørensen
56º 24'209 N / 10º 55'631 E