Public Sub ladeBild()
    picShowPicture BildBox, BiPf
End Sub
 
Fehlerabfrage:
 
If Pfad = "Öffnen" Or Pfad = "" Then
        Me.BildBox.Visible = False
        Exit Sub
        Else
        BiPf = Pfad
        picShowPicture BildBox, BiPf
        Me.BildBox.Visible = True
        ladeBild
        End If
 
 
Bildzuweisung:
 
Public Sub picShowPicture(oPictureBox As Object, _
  ByVal sFile As String, _
  Optional ByVal bStretch As Boolean = True)
 
 
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
End Sub