Cita:
Iniciado por Malenko 
No esta refiriendose a la cantidad de elementos, sino a los elementos en sí. Yo entiendo que tiene un listbox con números y de ahí quiere averiguar el valor más alto y el más bajo...
Si eso es...Al final hice esto..
Código:
Dim min As Integer
Dim max As Integer
Dim cont_max As Integer
Dim cont_min As Integer
For i As Integer = 1 To LstTabla.Items.Count - 1
If i = 1 Then
max = CInt(LstTabla.Items(i - 1).ToString())
min = CInt(LstTabla.Items(i - 1).ToString())
End If
If LstTabla.Items(i) < min Then
min = LstTabla.Items(i)
End If
If LstTabla.Items(i) > max Then
max = LstTabla.Items(i)
End If
Next
If RadMax.Checked Then
Label4.Enabled = True
For j As Integer = 0 To LstTabla.Items.Count - 1
If max = LstTabla.Items.Item(j) Then
cont_max = cont_max + 1
End If
Next
Label4.Text = "El Maximo es : " & max & " que aparece: " & cont_max & " veces."
End If
If RadMin.Checked Then
Label4.Enabled = True
For j As Integer = 0 To LstTabla.Items.Count - 1
If min = LstTabla.Items.Item(j) Then
cont_min = cont_min + 1
End If
Next
Label4.Text = "El Minimo es : " & min & " que aparece: " & cont_min & " veces."
End If