[led]

(13-11-14, 11:42 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

إن شاء الله يكون المطلوب

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim total As Integer = (From itm In ListView1.Items Select CDbl(itm.Text)).Sum()
    For Each itm As ListViewItem In Me.ListView1.Items
        itm.SubItems(1).Text = Val(itm.Text) - (total / Me.ListView1.Items.Count)
        itm.SubItems(2).Text = Val(itm.SubItems(1).Text) ^ 2
    Next
End Sub 


شكرا لمحاولتك , لكن يظهر لي الخطا التالي

http://im79.gulfup.com/5iMUlC.jpg