Option Compare Database
Dim x As Single, kx As Single, y As Single, ky As Single
Private Sub Form_Load()
x = Me.InsideWidth
kx = Me.InsideWidth
y = Me.InsideHeight
ky = Me.InsideHeight
End Sub

Private Sub Form_Resize()
Dim DeltaX As Single, DeltaY As Single, xt As Single, yt As Single
Dim ctl As Control
Dim frm As Form

On Error Resume Next
If Me.InsideWidth < kx Then: Me.InsideWidth = kx
If Me.InsideHeight < ky Then: Me.InsideHeight = ky
xt = Me.InsideWidth
yt = Me.InsideHeight

DeltaX = (xt - x) / 2
DeltaY = (yt - y) / 2
Set frm = Me.Form
For Each ctl In frm.Detail.Controls
    ctl.Left = ctl.Left + DeltaX
    ctl.Top = ctl.Top + DeltaY
Next ctl

x = Me.InsideWidth
y = Me.InsideHeight
End Sub