' API's
Private Declare Function DrawText Lib "user32" _
  Alias "DrawTextA" ( _
  ByVal hdc As Long, _
  ByVal lpStr As String, _
  ByVal nCount As Long, _
  lpRect As RECT, _
  ByVal wFormat As Long) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Const DT_CALCRECT = &H400
Const DT_WORDBREAK = &H10

  Dim sText As String
  Dim nResult As Long
 
  sText = "Dies ist ein mehrzeiliger Text." & vbCrLf & _
    "Das Label sollte sich autom. in der Höhe anpassen."
 
  ' Rechteck ermitteln
  Dim R As RECT
 
  R.Right = Label1.Width / Screen.TwipsPerPixelX
  nResult = DrawText(Me.hdc, sText, Len(sText), R, DT_CALCRECT Or DT_WORDBREAK)
 
  With Label1
    ' Labelgröße festlegen
    .Height = nResult * Screen.TwipsPerPixelY
    .Caption = sText
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de