GUI: flytte data fra en listbox til en anden ?

Du kan gøre det med: list2.additem(list1.index(x)) så tager den det index nummer den har, og rykker over.....
f.eks.:
har du 100 items ligger de fra Index 0-99 og skal du så flytte nummer 78 i listen gøres det sådan her:
list2.additem(list1.index(77))
du kan hvis du hellere vil arbejde med aktuelle data skrive:
list2.additem(list1.index(78-1))

Hvis det er det der er markeret der skal flyttes f.eks. ved dobbeltklik, så er det sådan her mener jeg:

Sub List1_DblClick()
List2.AddItem(List1.Text)
End Sub

Ok. Hvordan får jeg i første omgang data på liste1 ? Jeg er ved at lave en prototype, så jeg kan godt selv taste værdierne ind, men ved ikke hvor.

Ude til højre er der et sted hvor du kan tilføje ting.....du kan også kode det, kommer et eksempel på det her.....

Du laver en knap, et textfelt og 2 listboxe.....

Så koder du knappen:

uden knappens kode skal du så har følgende:

Private Sub Command1_Click()
List1.AddItem(Text1.Text)    '<-- Denne kode gør at det der står i textfeltet
End Sub                          'kommer ind i listbox 1

Tak !

Np du :O)