pic2.AutoRedraw = True
If nHeight > 60 Then
  pic2.PaintPicture pic1, 0, -((nHeight3 - 60) / 2), 80, nHeight
Else
  pic2.PaintPicture pic1, 0, 0, 80, nHeight
End If
Set pic2.Picture = .Image
pic2.AutoRedraw = False

SavePicture pic2.Picture "c:\test.jpg"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de