[silverlight]

PHP كود :

       Dim value As Decimal = Nothing
        Dim result As Decimal = 0
        For i As Integer = 0 To ListBox1.Items.Count - 1
            Dim item As String = ListBox1.Items(i).ToString
            If Not String.IsNullOrEmpty(item) Then
                Dim current As String() = item.Split("E"c)
                If Decimal.TryParse(current(0), value) Then
                    result += value
                End If
            End If
        Next