PICTUREBOX COM CANTOS ARREDONDADOS

Option Explicit

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 Declare Function SetWindowRgn Lib [Ô]user32[Ô] _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

Private Declare Function GetClientRect Lib [Ô]user32[Ô] _
(ByVal hWnd As Long, lpRect As Rect) As Long

Private Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Sub Retangulo(m_hWnd As Long, Fator As Byte)
    Dim RGN As Long
    Dim RC As Rect
    Call GetClientRect(m_hWnd, RC)
    RGN = CreateRoundRectRgn(RC.Left, RC.Top, RC.Right, _
    RC.Bottom, Fator, Fator)
    SetWindowRgn m_hWnd, RGN, True
End Sub

Private Sub Command1_Click()
    Picture1.BackColor = &H808080 [ô]Apenas para destacar a cor
    [ô]Coloca o formulário com os cantos arredondados
    [ô]e fator 30 de área
    Retangulo Me.hWnd, 30 [ô]Para o form
    Retangulo Command1.hWnd, 10 [ô]Para o comand
    Retangulo Picture1.hWnd, 80 [ô] para picture
    
End Sub