Hallo zusammen,

ich wollte nochmal eine kurze Rückmeldung geben.

So ganz hat die Lösung von Peter nicht funktioniert - zumindest nicht in meinem Fall, aber durch den Hinweis auf die Anchors bin ich auf eine Lösung gekommen.

Ich ermittle einfach die Anzahl der Twips um die das Formular breiter geworden ist nach folgender Methode:

Private Function GetOffset(ByVal Control As Access.Control) As Integer
  Dim retVal As Integer 

  retVal = 0
  With Control.Parent
    If .InsideWidth > .Width Then
      If Control.HorizontalAnchor <> acHorizontalAnchorLeft Then
        retVal = .InsideWidth - .Width
      End If
    End If
  End With

  GetOffset = retVal
End Function

Gruß,

Thomas