Use the sender object to determine what picture was clicked.
You can create a myPic variable and assignn the sender object to it. Once assigned (myPic = sender) you can read the name or tag property into a string variable and use a select case .

Dim myPic as PictureBox

myPic = sender
strTag = myPic.Tag
strName = myPic.name

select case strTag
case "Die1"
labelPic1.text ="'HOLD"
case "Die2"
ect....

If you use the tag property you will have to load the tags via the properties at design time or load them in run time.

__________________

---