مجموع عمود في Datagrid ووضعها في Textbox

بصراحة انا ليس لدي 2003 ولذلك سوف اكتب لك الكود المتوقع

Dim c As Double = 0
		For i As Integer = 0 To DataGrid1.VisibleRowCount
			c += CDbl(DataGrid1.Item(i, 3))
		Next
		TextBox11.Text = c.ToString

شكرا يا أخ Romantic_touch على سرعة إستجابتك وإفادتي

قمت بتجربة الكود وظهر لي الخطأ التالي :

An unhandled exception of type 'System.IndexOutOfRangeException' occurred in system.windows.forms.dll

Additional information: No value at index 4.

وشكرا مرة أخرى على المعلومة

شكرا يا أخ Romantic_touch لقد تم حل المشلكة بالكود الآتي:

 Try
			Dim c As Double = 0
			For i As Integer = 0 To DataGrid1.VisibleRowCount - 2
				c += CDbl(DataGrid1.Item(i, 3))
			Next
			TextBox11.Text = c.ToString
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try