Popup menu su listview

[xegallo]

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = 2 Then
      PopupMenu menù
   End If
End Sub

Private Sub mnuIns_Click()
   Dim stemp As String
   Dim mItem As ListItem
   stemp = InputBox("inserisci")
   Set mItem = ListView1.ListItems.Add(, , stemp)
   stemp = InputBox("inserisci")
   mItem.ListSubItems.Add , , stemp
End Sub

così riesco a riempirla