Private Sub Form_Load()
   nSetControlAnchors Me.Name
End Sub

Private Sub Form_Resize()
   nReDrawForm Me.Name, "dArea"
End Sub

Option Compare Database
Option Explicit
Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Public Const br =  15  ' minimal border width
Public Const sRatio =  14 . 85  ' screen ratio

'-------------------------------------
' (C) Nafigator, 2005
'-------------------------------------
Public Sub nReDrawForm(stFormName As String, stDataAreaName As String)
    Dim i, j As Single, ps As Single, st As String
    Dim sB As Single, Xn As Integer, Yn As Integer, Rn As RECT
    GetWindowRect Forms(stFormName).Form.hWnd, Rn
    Xn = Rn.Right - Rn.Left
    Yn = Rn.Bottom - Rn.Top
    Forms(stFormName).Section(stDataAreaName).Height = Yn *  14 . 85 
    For Each i In Forms(stFormName).Controls
        st = i.Tag
        If InStr(st, "@R") >  0  Then
            j = InStr(i.Tag, "@X")
            If j >  0  Then ps = Val(Mid(st, j +  2 ,  9 ))
            sB = Xn * sRatio - ps
            If InStr(st, "@L") >  0  Then
                If sB - i.Left > br Then i.Width = sB - i.Left Else i.Width = i.Left + br
            Else
                If sB - i.Width > br Then i.Left = sB - i.Width Else i.Left = br
            End If
        End If
        If InStr(st, "@B") >  0  Then
            j = InStr(i.Tag, "@Y")
            If j >  0  Then ps = Val(Mid(st, j +  2 ,  9 ))
            sB = Yn * sRatio - ps
            If InStr(st, "@T") >  0  Then
                If sB - i.Top > br Then i.Height = sB - i.Top Else i.Height = i.Top + br
            Else
                If sB - i.Height > br Then i.Top = sB - i.Height Else i.Top = br
            End If
        End If
    Next
End Sub
'----------------------------------------------------------
Public Sub nSetControlAnchors(stFormName As String)
    Dim i, st As String, r As RECT
    Dim sX As Integer, sY As Integer
    GetWindowRect Forms(stFormName).hWnd, r
    sX = r.Right - r.Left
    sY = r.Bottom - r.Top
    For Each i In Forms(stFormName).Controls
        st = Trim(Str(Round(sX * sRatio - i.Width - i.Left,  2 )))
        i.Tag = i.Tag & "@X" & st & String( 10  - Len(st), " ")
        st = Trim(Str(Round(sY * sRatio - i.Height - i.Top,  2 )))
        i.Tag = i.Tag & "@Y" & st & String( 10  - Len(st), " ")
    Next
End Sub