Listview Shows No Text

[AlexanderBB]

Must have done something wrong as although no errors nothing shows in the Listview control except gridlines.
The Userform has a Frame and one listbox. Properties are:

(Name) ListView1
AllowColumnReorder False
Appearance 1 - cc3D
Arrange 0 - lvwNone
BackColor &H80000005&
BorderStyle 0 - ccNone
Checkboxes False
ControlTipText
Enabled True
FlatScrollBar False
Font Tahoma
ForeColor &H00000000&
FullRowSelect True
GridLines True
Height 90
HelpContextID 0
HideColumnHeaders True
HideSelection False
HotTracking False
HoverSelection False
LabelEdit 0 - lvwAutomatic
LabelWrap True
Left 3
MouseIcon (None)
MousePointer 0 - ccDefault
MultiSelect False
OLEDragMode 0 - ccOLEDragManual
OLEDropMode 0 - ccOLEDropNone
Picture (None)
PictureAlignment 0 - lvwTopLeft
Sorted False
SortKey 0
SortOrder 0 - lvwAscending
TabIndex 0
TabStop True
Tag
TextBackground 0 - lvwTransparent
Top 30
View 3 - lvwReport
Visible True
Width 255

Private Sub UserForm_Activate()
    Dim li As ListItem
    Dim w As Integer
    With Me.Frame1.ListView1
        For w = 0 To 3 'Add some items
            Set li = .ListItems.Add(, , "TestRowItem")
        Next
    End With
End Sub

I have tried both Me.Frame1.ListView1, and Me.ListView1 in both Userform Activate and Initialize events.
I want one column only and no headers.

 

[GWteB]

A ListBox and a ListView are two different Objects (the latter is part of the dotNET-framework).
If you are using a ListBox, try this:

Private Sub UserForm_Initialize()
    Dim w As Integer
    With Me.Frame1.ListBox1
        For w = 0 To 3 'Add some items
            .AddItem (w & "TestRowItem")
        Next
    End With
End Sub

 

[AlexanderBB]

Ah, I see now I wrote "listbox" on line 2, I meant Listview"
I did sort the problem though, you need .ColumnHeaders.Add even if you don't want headers.
Thanks for replying though.