Dim TmpPic As StdPicture
 
With Picture1
  If .Picture.Type = vbPicTypeNone Then
    Set TmpPic = .Image
  Else
    Set TmpPic = .Picture
    Set .Picture = LoadPicture()
  End If
  .FillStyle = vbFSSolid
  .BackColor = vbWhite
  .FillColor = vbBlack
  Picture1.Circle (.ScaleWidth / 2, .ScaleHeight / 2), .ScaleHeight / 2, vbBlack
  .PaintPicture TmpPic, 0, 0, , , , , , , vbSrcPaint
End With

Gruss,

Zardoz