Total TK % Project

Form 1

Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim a, b As Decimal         a = TextBox1.Text         b = TextBox2.Text         Label1.Text = (a / 100) * b '& '"%"         Dim t, o As Decimal         t = TextBox1.Text         o = TextBox3.Text         Label2.Text = (t / 100) * o ' & '"%"         Dim s, f As Decimal         s = TextBox1.Text         f = TextBox4.Text         Label3.Text = (s / 100) * f '& '"%"         Dim d, l, y As Decimal         d = Label1.Text         l = Label2.Text         y = Label3.Text         'k = d + l + y         MsgBox("Total" & d + l + y & "%", MsgBoxStyle.OkCancel)     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load          ComboBox1.Hide()         ComboBox2.Hide()         ComboBox3.Hide()     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         End             End Sub     End Class