Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal _
  hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, 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 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 Rgn1&
  Me.ScaleMode = vbPixels
  Me.BackColor = vbBlue
  With Picture1
    .ScaleMode = vbPixels
    .BorderStyle = vbBSNone
    .BackColor = vbBlack
    .AutoRedraw = True
    .ForeColor = vbWhite
    .DrawWidth = 2
    Rgn1 = CreateRoundRectRgn(0, 0, .Width, .Height, 50, 50)
    Call SetWindowRgn(.hwnd, Rgn1, True)
    Call RoundRect(.hdc, 1, 1, .Width - 1, .Height - 1, 50, 50)
    .DrawWidth = 1
    .Refresh
  End With
End Sub

Gruss,

Zardoz