Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Tot As Double = 0
For Each T As TextBox In Me.Controls
Tot += CType(TextBox1.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox2.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox3.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox4.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox5.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox6.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox7.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox8.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox9.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox10.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox11.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox12.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox13.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox14.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox15.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox16.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox17.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox18.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox19.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox20.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox21.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox22.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox23.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox24.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox25.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox26.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox27.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox28.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox29.Text, Double)
Next
For Each T As TextBox In Me.Controls
Tot += CType(TextBox30.Text, Double)
Next
Tot += CType(TextBox31.Text, Double)
Form1.Label26.Text = Tot
End Sub