Centering Labels in shapes

Is there anyway to automatically center a label array inside of a shape array. I need to be able to change the font of the label caption during runtime but that uncentered it. thx

Code:

---

label1.AutoSize = True
label1.Caption = "Whatever you want"

label1.left = (shape1.width - label1.width) / 2

---

This is providing that label1.left is an offset of shape1 such that label1.left would be right on the border of shape1