响应移动容器或调整容器大小

OLE 容器控件具有 ObjectMove 事件，当移动与OLE容器控件相关的对象以及调整其大小时，会触发它。ObjectMove 的参数代表对象容器内对象的坐标（不包括边框）。如果对象移出窗体，参数的值代表与窗体左上角的相对位置。这些值可正可负。如果 ActiveX 部件的宽或高被改变，将通知 OLE 容器控件。

ObjectMove 事件，是OLE容器控件确定对象是否已经移动或调整大小的唯一方法。当用户移动包含在 OLE 容器控件中对象或调整其大小时，ObjectMove 事件发生。例如：

Private Sub oleObj1_ObjectMove(Left As Single, Top As _
   Single, Width As Single, Height As Single)
   '此法重新调整 OLE 容器控件的大小为新对象的大小。
   oleObj1.Move oleObj1.Left, oleObj1.Top, _
      Width, Height
   '此法移动 OLE 容器控件到新对象的位置。
   oleObj1.Move Left, Top, _
      oleObj1.Width, oleObj1.Height
' Repaints the form.
   Me.Refresh
End Sub