Listbox

http://search.microsoft.com/default.asp?qu=listbox&boolean=ALL&nq=NEW&so=RECCNT&p=1&ig=01&ig=03&ig=04&ig=05&ig=06&i=00&i=01&i=02&i=03&i=04&i=05&i=06&i=07&i=08&i=09&i=10&i=11&i=12&i=13&i=14&i=15&i=16&i=17&i=18&i=19&i=20&i=21&i=22&i=23&i=24&i=25&i=26&i=27&i=28&i=29&i=30&i=31&i=32&i=33&i=34&i=35&i=36&i=37&i=38&i=39&i=40&i=41&siteid=us/dev

Hej hej..

Du henter tekst ud fra en listbox sådan:

' i form_activate (så den ikke er tom)
Private Sub Form_Activate()
    List1.AddItem "Microsoft"
    List1.AddItem "Hejsa"
    List1.AddItem "Lovo"
    List1.AddItem "Hallo"
    List1.AddItem "Test"
    List1.AddItem "Davs"
End Sub

' I listboksen
Private Sub List1_Click()
    MsgBox List1.List(List1.ListIndex)
    Me.Caption = List1.List(List1.ListIndex)
End Sub

Håber det hjalp!

Mvh. Rasmus

d hjalp lidt (svaret fra kantoraza).

Men jeg vil gerne kunne gøre det samme, ved tryk på en knap.
Altså samme opsætning som kantoraza har lavet. Blot hvor man trykker på en knap, og så kommer msgboxen frem osv...!

Så indtaster du bare index-nummeret istedet for List1.Listindex:

msgbox List1.List('Ønsket Index nr her')