' Ermittelt die benötigte Höhe für die Ausgabe des
' übergebenen Strings anhand einer maximal festgelegten Breite
' Rückgabewert: Höhe in Pixel!
Public Function GetTextHeight(ByVal oLabel As Label, _
  ByVal sText As String, _
  ByVal maxWidth As Long) As Long
 
  With oLabel
    .WordWrap = True
    .Width = maxWidth ' max. Breite in Twips
    .Caption = sText
    .AutoSize = True
 
    GetTextHeight = ScaleY(.Height, .Parent.ScaleMode, vbPixels)
  End With
End Function

Dim nHeight As Long
Dim sText As String
 
sText = "Dies ist ein Text der autom. umgebrochen wird" & _
  vbCrLf & "Zeile 2"
 
' max. Höhe des Textes bei einer max. Breite von 2000 Twips
' Rückgabewert: Pixel!!!
nHeight = GetTextHeight(DummyLabel, sText, 2000)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de