Hi, i want to crate an usercontrol similar to Listview.
but i have problems   when creating subitems.
Can anyone give a litle help on this.

Sorry, are you sayimng here that you want help with adding sub-items to the ListView Control, or that you are trying to create a whole new ListView Control of your own.
If it is the latter, then without knowing what you have done with the Control already it is impossible to say.

____________________________
multi-tasking - the ability to hang more than one app. at the same time.

Dim ch As ColumnHeader
Dim data As ListItem

Set ch = List1.ColumnHeaders.Add(, , "Artist", 1850)
Set ch = List1.ColumnHeaders.Add(, , "Title", 2800)
Set ch = List1.ColumnHeaders.Add(, , "Notes", 1200)
Set ch = List1.ColumnHeaders.Add(, , "Year", 700)

Set data = List1.ListItems.Add(, , txtArtist)
data.SubItems(1) = txtTitle
data.SubItems(2) = txtNotes
data.SubItems(3) = txtYear

....bye