Hey all again. Need help with trying to find a way to add some text BELOW one of my list items. Driver windows 7 32 bit. Right now it looks like so: Name Blah1 Blah2 -------------------------- ---------- ---------- ---- Bob Stuff1 Stuff2 Stuff2 Stuff2 Now what it looks like now is: Name Blah1 Blah2 -------------------------- ---------- ---------- ---- Bob Stuff1 Stuff2 555-555-5555 Stuff2 Stuff2 Now what i want it to look like is like this: Name Blah1 Blah2 -------------------------- ---------- ---------- ---- Bob Stuff1 Stuff2 555-555-5555 Stuff2 Stuff2 Now i can add some text below Bob but it makes a space ALL the way across the grid which i do not want. Is there any way just to add text below Bob ONLY in that box and not all the others as well? It looks the same as it did before.

Jan 22, 2015 - Create a listview with editable subitems, wit. Rating: By 10 Users. Compatibility: VB 6.0. For your own safety, please: Re-scan.

Seems to correct the space issue across the list, however it now knocks the time and order down one space. Ok, there still the situation with the order being on the same line as the name and the time. I need both the name, time and orders to be one space above. The phone number is fine under the guest name.

Thats where i want it. I just want to move the time and the order up one instead of being on the same line as the phone number.

This may help the consfusion: Private Sub Form_Load() PopulatePassCombo With LV1.ColumnHeaders.Add,, 'ID', 0.ColumnHeaders.Add,, ' Guest Name', 2100.ColumnHeaders.Add,, ' Pick-Up', 850.ColumnHeaders.Add,, ' QTY Order(s) and Notes', 7000 '.ColumnHeaders.Add,, 'Notes', 5000 '.ColumnHeaders.Add,, ' Phone #', 1100 '.ColumnHeaders.Add,, 'Address', 10000.ColumnHeaders.Add,, 'ID', 0.View = lvwReport.FullRowSelect = False.Font.Size = 7.Font.Bold = True End With AddPTO End Sub As you can see, the guest name is accualy in colum 2. 1st column - ID (i consider 555-555 as id, is it id?) THe 555-5555 is the phone number thats under the guests name. Take note that the '.ColumnHeaders.Add,, 'Notes', 5000 '.ColumnHeaders.Add,, ' Phone #', 1100 '.ColumnHeaders.Add,, 'Address', 10000 Are all commented out.

Set oSubItem = mItem.ListSubItems.Add(Tex t:=!NameFi rst & ' ' &!NameLast) 'The guest name Set oList = LV1.ListItems.Add(,,!ID) ' The ID oList.SubItems(1) =!Phone ' The phone number under the guest name Set oSubItem = oList.ListSubItems.Add(Tex t:=strTime ) ' Time in the Pick-up colum Set oSubItem = oList.ListSubItems.Add(Tex t:=strOrde r) ' The Order in the order colum. Set oSubItem = oList.ListSubItems.Add(Tex t:=rst('ID ')) ' The ID again Call AddSubitemAlone(LV1, 3,!Qty2 & ' > ' &!Item2) ' The loops though the 10 orders.

(Qty1-10, Item1-10) LV1.ListItems.Add.SubItems (2) = ' ' A blank space between the orderes.