[VB6] ListView e mancanza di un elemento selezionato

[mgmg]

Oppure basta che controlli listcount.

Private Sub List1_DblClick()
 If List1.ListItems.Count > 0 Then 

   With List1 
   varUno = .SelectedItem.Text 
   varDue = .SelectedItem.ListSubItems.item(1).Text 
   varTre = .SelectedItem.ListSubItems.item(2).Text 
   varQuattro = .SelectedItem.ListSubItems.item(3).Text 
   varCinque = .SelectedItem.ListSubItems.item(4).Text 
   varSei = .SelectedItem.ListSubItems.item(5).Text 

   End With 

   frmProp.Show 
   Unload Me 
 End If
End Sub

Ciao