With Picture1
  .ScaleMode = vbPixels
  .BackColor = RGB(0, 0, 255) ' Hintergrundfarbe
  .AutoSize = True
  .AutoRedraw = True
  Set .Picture = LoadPicture("C:\EinIcon.ico") ' Pfad eines Icons
  SavePicture .Image, "C:\EinBild.bmp" ' Zielpfad
End With

Gruss,

Zardoz