Jag har en Combo1 som detrlägger information i

informationen i combo lägger jag in så här

<code>
Private Sub Form_Load()
Combo1.AddItem "Andersson"
Combo1.AddItem "Pettersson"
Combo1.AddItem "Larsson"
End Sub
</code>

men att skriva
combo1.index = text.text

funkar inte.. någon som vet hur man lägger in från combo till ett textfelt

Ett tips är att du måste definiera vilket värde du vill ha ut...

förstår inte riktig vad du menar men
värdet är ju det som står..
Efternamnen.

Lite förvirrande som du skriver Vilket håll skall du gå ?
>funkar inte.. någon som vet hur man lägger in från combo till ett textfelt
<code>
Private Sub Combo1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
</code>
Dvs du skall använda ListIndex

Du kan också skriva Combo1.AddItem "Andersson",5
Kommer att lägga in Andersson på plats 5 i listan.

jag provar

<code>
Private Sub Command1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub

Private Sub Form_Load()
Combo1.AddItem "andersson", 0
Combo1.AddItem "Pettersson", 1
Combo1.AddItem "Larsson", 2
End Sub
</code>

men det funkar inte.. ingen text lägs i

Klart att inte det går.
Det finns ju ingen plats 2 än i Form_Load är ju ComboBoxen tom
Exemplet gäller när ComboBoxen redan är fylld och du vill stuva om.
i Load skall du använda
<code>
Private Sub Form_Load()
Combo1.AddItem "andersson"
Combo1.AddItem "Pettersson"
Combo1.AddItem "Larsson"
End Sub
</code>
Testa detta exempel när du tränar
<code>
Private Sub Form_Load()
'Fyller ListBoxen med något
Dim i As Long
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
End Sub
</code>

Private Sub Command1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
Det här är ju korkat hur skall Command1 kunna veta vilket ListIndex du menar !!

Så här skall det vara
<code>
Private Sub Combo1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
</code>
Eller så får du tala om vilket index du vill ha
<code>
Private Sub Command1_Click()
Text1.Text = Combo1.List(2)
End Sub
</code>

tackar...
såg varför det inte funkade

<code>
Private Sub Command1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
</Code>

det står
<Code>
Private Sub Command1_Click()

det ska vara
Private Sub Combo1_Click()

så funktonen låg lite fel... Nästan så man skäms...
Tackar alla för hjälpen...
</code>

tackar SvenPon