代码如下(参考设置CASS屏幕菜单中的pWriteMPH过程)：

  pMPHTxt.Alignment = acAlignmentMiddleCenter
  pMPHTxt.TextAlignmentPoint = pBasePt

  要先设置对齐方式，后设置文本对齐点。