Option Explicit

Private Sub Form_Load()
   Dim d As Date
   With ListView1
      .View = lvwReport
      .ColumnHeaders.Add , , "Text"
      For d = "2007-09-03" To "2007-09-09"
         .ListItems.Add , , Format(d, "dddd")
      Next
   End With
End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = vbRightButton Then
      mnuList1Delete.Enabled = Not ListView1.SelectedItem Is Nothing
      PopupMenu mnuList1
   End If
End Sub

Private Sub mnuList1Add_Click()
   Dim s As String
   s = InputBox("Введите имя новой строчки", "Новая строчка", "Новая сточка " & ListView1.ListItems.Count)
   If s <> "" Then
      ListView1.ListItems.Add , , s
   End If
End Sub

Private Sub mnuList1Delete_Click()
   If ListView1.SelectedItem Is Nothing Then Exit Sub
   If MsgBox("Удалить '" & ListView1.SelectedItem.Text & "' ?", vbQuestion Or vbYesNo, "Подтвердите удаление") = vbYes Then
      ListView1.ListItems.Remove ListView1.SelectedItem.Index
   End If
End Sub