file.vb
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
txtNetSal.Text = CInt(txtBasic.Text) + CInt(txtDA.Text) +
CInt(txtHRA.Text) + CInt(txtMA.Text) + CInt(txtPF.Text) - CInt(txtPT.Text) -
CInt(txtIT.Text)
MsgBox(txtName.Text & txtNetSal.Text)
EndSub
EndClass