INSERT month name in listview

[sal21]

In listview how to insert the name of month in second cell for each year?

Tks

TKS. TO THE ALL
resolved my self

 

[strongm]

What have you tried so far?

 

[Andrzejek]

Well, a short search gave me this place and with this code:

Option Explicit

Private Sub Form_Load()

Dim li As ListItem

With ListView1
    .View = lvwReport
    .ColumnHeaders.Add , , "One"
    .ColumnHeaders.Add , , "Two"
    
    Set li = .ListItems.Add(, , Date)
    li.SubItems(1) = Format(Date, "MMMM")

    Set li = .ListItems.Add(, , Date + 1)
    li.SubItems(1) = Format(Date + 1, "MMMM")
End With

End Sub

---- Andy

There is a great need for a sarcasm font.