Option Explicit
 
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

 
 
Private Sub Command1_Click()
  Dim R As RECT
  Dim nResult As Long
  Dim sText As String
 
  sText = "Dies ist ein mehrzeiliger Text." & vbCrLf & _
    "Der Text soll sich autom. der Größe (Breite) der PictureBox anpassen " & _
    "und dann in der PictureBox erscheinen."
 
  ' Rechteck ermitteln  
  R.Right = Picture1.Width / Screen.TwipsPerPixelX
  nResult = DrawText(Picture1.hdc, sText, Len(sText), R, DT_CALCRECT Or _
    DT_WORDBREAK)
 
  ' Text in PictureBox ausgeben
  DrawText Picture1.hdc, sText, Len(sText), R, DT_WORDBREAK
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de