Om jag vill föra med mej en text till MsgBoxen
Här kan jag ju välja mellan 2 namn
Det jag väljer vill jag ska komma med i MsgBoxen

Combo1.AddItem "Johan"
Combo1.AddItem "Kurt"

MsgBox "Namnet är "


Nästa fråga
Om jag skriver till "slutet" i en textbox, Maxlenght 6
Så vill jag komma till nästa textbox automatiskt
Alltså hoppa dit, när jag skrivit fult i första boxen




Sören

Fråga 1:
<code>
Private Sub Command1_Click()
Dim sName As String
If Combo1.ListIndex Then
sName = Combo1.List(Combo1.ListIndex)
End If
MsgBox "Namnet är " & sName

End Sub


</code>
Eller:
<code>
Private Sub Command1_Click()

MsgBox "Namnet är " & Combo1.Text

End Sub


</code>
Fråga 2
<code>
Private Sub Text1_Change()
If Len(Text1.Text) = Text1.MaxLength Then
SendKeys "{Tab}", True
End If
End Sub
</code>

Jag tackar för detta...