Sub Set_Image(Bilder As List(Of Bitmap),Positions As List(Of PointF),Width As _
  Integer,Height As Integer, TransparentColor As Color)
   For x As Integer = 0 To Bilder.Count - 1
      Dim b As New Bitmap(Width,Height)
      Dim g As Graphics = Graphics.FromImage(b)
      Bilder(x).MakeTransparent(TransparentColor)
      g.DrawImage(Bilder(x)),Positions(x))
   Next x
Ens Sub

Dim bitmaps As New List(Of Bitmap)
Dim positions As New List(Of PointF)
bitmaps.Add(New Bitmap("C:\Hose.jpg"))'Die Hintergrundfarbe muss gleich, wie 
' die Farbe im Set_Image sein(Magenta)
positions.Add(New PointF(0,0))
bitmaps.Add(New Bitmap("C:\T-Shirt.jpg"))'Die Hintergrundfarbe muss gleich, wie 
' die Farbe im Set_Image sein(Magenta)
positions.Add(New PointF(0,0))
 
Set_Image(bitmaps,positions,512,512,Color.Magenta)