Dim tSel As Boolean
tSel = False

For i = 1 To Lvw1.ListItems.Count
If Lvw1.ListItems.Item(i).Selected = True Then
tSel = True
Exit For
Else
tSel = False
End If
Next i

If tSel = True Then

Load popup
frmgestione.Show 1, popup
Else
MsgBox "Perfavore seleziona una voce nella lista", vbExclamation
Exit Sub
End If