我在窗体上放了一个OLE控件，但希望它的空白区域和窗体完全自动吻合。既：随着窗体的拉伸，能自动变化。

[sangdy]

我在窗体上放了一个OLE控件，但希望它的空白区域和窗体完全自动吻合。既：随着窗体的拉伸，能自动变化。

[道素]

在 form resize里写代码控制

[Sunron128]

Private Sub Form_Resize()
On Error Resume Next
OLE1.Top = 0
OLE1.Left = 0
OLE1.Width = Me.ScaleWidth
OLE1.Height = Me.ScaleHeight
End Sub

[Sunron128]

Private Sub Form_Resize()
On Error Resume Next
OLE1.Top = 0
OLE1.Left = 0
OLE1.Width = Me.ScaleWidth
OLE1.Height = Me.ScaleHeight
End Sub

[富察咪咪]

Private Sub Form_Resize()
ole.width=me.width
ole.Height=me.height
ole.Move (Me.Width - ole.Width) / 2, (Me.Height - ole.Height) / 2 '移动到窗体中心
End Sub