Small Counter issue

[Leceur]

Has been sometime I have been programming and never was REALLY good but it's fun. I have a small problem. I want to add 10 line's to a Combo box with a number:
Private Sub Form_Load()
tmpCount = 1
Do While tmpCount < 10
Combo1.AddItem ("Added item" + Str(tmpCount))
tmpCount = tmpCount + 1
Loop
End Sub
This works fine but I want the number to be attached to the text "Added item" so it reads "Added Item1",etc. Now there is a space between the text and the number looking like "Added Item 1". Anyone know how to fix this?

[Steve Grant]

Private Sub Form_Load()
    Dim tmpcount
    tmpcount = 1
    Do While tmpcount < 10
        Combo1.AddItem ("Added item" & tmpcount)
        tmpcount = tmpcount + 1
    Loop
End Sub

Steve.

[Leceur]

Private Sub Form_Load()
    Dim tmpcount
    tmpcount = 1
    Do While tmpcount < 10
        Combo1.AddItem ("Added item" & tmpcount)
        tmpcount = tmpcount + 1
    Loop
End Sub

Steve.

THX

[gsbe]

add trim before

ie

Private Sub Form_Load()
Dim tmpcount
tmpcount = 1
Do While tmpcount < 10
Combo1.AddItem ("Added item" & trim(str$(tmpcount)))
tmpcount = tmpcount + 1
Loop
End Sub
'this way it avoids the VB6 auto conversion
'trim cancels the leading space of the number converted

[mstraf]

Use CStr or Format instead of Str (that adds a space in front of the returned string)

Marco