به طور کلی برای اینکه گوشه هارا گرد کنید میتونین به شکل زیر عمل کنید
Dim CR As CornerRadius
CR.Initialize
CR.xCR_BottomLeft = 10
CR.yCR_BottomLeft = 10
CR.xCR_BottomRight = 10
CR.yCR_BottomRight = 10
CR.xCR_TopLeft = 10
CR.yCR_TopLeft = 10
CR.xCR_TopRight = 10
CR.yCR_TopRight = 10
DGPanel1.CornerRadius = CR
DGPanel1.SetCornerRadiusAnimated(1000,CR)
به این شکل تمام گوشه ها به اندازه 10 تا گرد میشه از دو مورد آخری فقط یکی را انتخاب کنید میزان زمان هم برای انیمشین بر حسب میلی ثاینه است