qwdqdqw

    Private Function nombreGran() As Double
        Dim gran As Double = Double.MinValue

        For i As Integer = 0 To ltbNombres.Items.Count - 1
            If ltbNombres.Items(i) > gran Then
                gran = ltbNombres.Items(i)
            End If
        Next

        Return gran
    End Function