I have the following code to perform various actions based on the button pressed
Sub ButtonPress_Click
Dim Qty As Int
Dim BtnVal As Int
Dim btn As Button ' use to find which button sent us here
btn = Sender ' this sent us here
BtnVal=btn.Tag
..
..
..