Zitat:

Wie funktioniert dass den bei einer Picturebox.

Private Declare Function SetWindowRgn& Lib "user32" (ByVal hWnd&, ByVal hRgn&, _
  ByVal bRedraw As Boolean)
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal _
Y3 As Long) As Long
 
Private Sub Form_Load()
 
  Dim Dat1$, Rgn1&
 
  Me.ScaleMode = vbPixels
  Dat1 = "C:\EinBild.jpeg" ' Pfad einer Bilddatei
  With Picture1
    .BorderStyle = vbBSNone
    .AutoSize = True
    Set .Picture = LoadPicture(Dat1)
    Rgn1 = CreateRoundRectRgn(0, 0, .Width, .Height, 40, 40)
    Call SetWindowRgn(.hWnd, Rgn1, True)
  End With
 
End Sub

Gruss,

Zardoz