VB已知控件左上点坐标,求中心点坐标

Dim X As Single, Y As Single
X = 控件对象名称.Left + 控件对象名称.Width / 2
Y = 控件对象名称.Top + 控件对象名称.Height / 2
X 与 Y 就是中心点坐标。
如果控件是容器，控件对象名称.Left 与 控件对象名称.Top 部分就不需要了。因为 控件对象名称.Left = 0 ： 控件对象名称.Top = 0