xeg, io il menu lo creo in progettazione e lo rendo invisibile. poi scrivo questo:
codice:
Private Sub lvEnti_MouseUp(Button As Integer, Shift As Integer,_
                           X As Single, y As Single)
'mostra il popupmenu per aggiungere o eliminare un evento
On Error GoTo errore

       If Button = 2 Then
          If lvEnti.ListItems.Count = 0 Then 
                  mEliminaEnte.Enabled = False 
             Else 
                  mEliminaEnte.Enabled = True
          End If
               PopupMenu PopupEnti
       End If

     Exit Sub

errore:
      MsgBox "Errore n. " & Err.Number & ": " & Err.Description & _
            vbNewLine & ErrMsg & "lvEnti_MouseUp (frmNominativo)"

End Sub
però se voglio inserire un nuovo nominativo non funziona, eppure passa su tutte le istruzioni. ...io non capisco...:master: