Mega Code Archive
Single Epsilon Field represents the smallest positive Single value that is greater than zero
<![CDATA[
Module Example
Public Sub Main()
Dim values() As Single = { Single.Epsilon }
For ctr As Integer = 0 To values.Length - 2
For ctr2 As Integer = ctr + 1 To values.Length - 1
Console.WriteLine("{0:r} = {1:r}: {2}", _
values(ctr), values(ctr2), _
values(ctr).Equals(values(ctr2)))
Next
Console.WriteLine()
Next
End Sub
End Module
]]>