' PictureBox einrichten und ggf.
  ' auf die benötigten Bildabmessungen einstellen
  With PicBox
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .BorderStyle = 0
    .Picture = LoadPicture() 'PictureBox löschen
    If AdjustPicBoxSize Then
      ' Skala: Pixel --> Twips umrechnen
      'w = .ScaleX(picWidth, vbPixels, vbTwips)
      'h = .ScaleY(picHeight, vbPixels, vbTwips)
      ' PictureBox-Arbeitsfläche ggf. vergrößern
      'If .Width < w Then .Width = w
      'If .Height < h Then .Height = h
    End If
  End With
 
  ' Erzeugen eines GDIPlus Grafikobjekts
  ' für die Verwendung mit Hdc
  retcode = GdipCreateFromHDC(PicBox.hDC, Graphics)
  If retcode <> 0 Then
    Meldung = "Graphikobjekt nicht verfügbar"
    GoTo exitfunction
  End If
 
  ' Bitmap in die PictureBox zeichnen
  retcode = GdipDrawImageRect(Graphics, Bitmap, 0, 0, PicBox.ScaleWidth, _
    PicBox.ScaleHeight)

Gruss,

Zardoz