eightmoons

Untitled

Apr 3rd, 2020
46
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub textChanger(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged, TextBox7.TextChanged, TextBox8.TextChanged, TextBox9.TextChanged, TextBox10.TextChanged
  2.             Dim num6 As Integer
  3.             Dim num7 As Integer
  4.             Dim num8 As Integer
  5.             Dim num9 As Integer
  6.             Dim num10 As Integer
  7.             Integer.TryParse(TextBox6.Text, num6)
  8.             Integer.TryParse(TextBox7.Text, num7)
  9.             Integer.TryParse(TextBox8.Text, num8)
  10.             Integer.TryParse(TextBox9.Text, num9)
  11.             Integer.TryParse(TextBox10.Text, num10)
  12.             TextBox22.Text = num6 + num7 + num8 + num9 + num10
  13.             TextBox23.Text = TextBox22.Text
  14. End Sub
RAW Paste Data