Public Function LoadPicGDI(Optional ByVal Filename As String) As StdPicture
  Dim con As GdiPlusConnection  ' GDIPlus einrichten
  Dim GDI_Connection As Long
 
  Set LoadPicGDI = Nothing
  Filename = Trim(Filename)         
.....
 
  ' GDI+ available? Initialize
  con.GdiplusVersion = 1
  If GdiplusStartup(GDI_Connection, con) = 0 Then
    Set LoadPicGDI = iLoadPic(Filename)    ' Load Picture with GDI+
    If GDI_Connection <> 0 Then GdiplusShutdown GDI_Connection    ' Unload GDI+
  End If
End Function

Picture1.Picture = LoadPicGDI("Pfad")
imgBackgroundNormal.Picture = Picture1.Picture

imgBackgroundNormal.Picture = LoadPicGDI("Pfad")