Dim Dat1$, Rgn1&, TmpPic As StdPicture
 
  Me.ScaleMode = vbPixels
  Dat1 = "C:\EinBild.jpeg"
  Set TmpPic = LoadPicture(Dat1)
  With Picture1
    .BorderStyle = vbBSNone
    .ScaleMode = vbPixels
    .AutoSize = False
    .AutoRedraw = True
    .PaintPicture TmpPic, 0, 0, .ScaleWidth, .ScaleHeight
    Rgn1 = CreateRoundRectRgn(0, 0, .Width, .Height, 40, 40)
    Call SetWindowRgn(.hWnd, Rgn1, True)
  End With
  Set TmpPic = LoadPicture()

Gruss,

Zardoz