Public Sub picShowPicture(oPictureBox As Object, _
  ByVal sFile As String, _
  Optional ByVal bStretch As Boolean = True)
 
  If Dir$(sFile) <> "" Then
    If Len(BiPf) <> 0 Then
      With oPictureBox
        If bStretch Then
          .AutoRedraw = True
          Set .Picture = Nothing
          .PaintPicture LoadPicture(sFile), 0, 0, .ScaleWidth, .ScaleHeight
        .  AutoRedraw = False
        Else
          Set .Picture = Nothing
          .Picture = LoadPicture(sFile)
          .AutoSize = True
        End If
      End With
    End If
  Else
    .Picture = LoadPicture("")
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de