click event handler
of it and do the following codes for calculating the sum of even digits of a given number.
Dim accptNumber, R, Ans As Integer accptNumber = Val(TextBox1.Text) While accptNumber > 0 R = accptNumber Mod 10 accptNumber = accptNumber \ 10 If R Mod 2 = 0 Then Ans = Ans + R End If TextBox2.Text = Ans End While
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox1.Focus() End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Close() End Sub