[VB6] ListView: selezionare min e max

[multijet]

Dim sDataLv As String
Dim sMinAnnoy As String
dim sMaxAnnoy as string


sMaxAnno = ""
sMinAnno = ""
sMinAnnoy = ""

Dim a As Integer

For a = 1 To FrmLisDiff.LvDiff.ListItems.Count

sDataLv = Right(FrmLisDiff.LvDiff.ListItems(a).ListSubItems( 1).Text, 4)

If sDataLv > sMaxAnno Then
sMaxAnno = sDataLv
sMaxAnnoy = sMaxAnno
End If

If sDataLv < sMinAnno Then
sMinAnno = sDataLv
sMinAnnoY = sDataLv
End If
Next a

Prova cosi'.Ho aggiunto una variabile smaxAnnoY
In questo modo hai in contemporanea Max e Min