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