[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

نفس الكود ولكن :
- بعد تعديل بسيط على الحواف.
- وبالتنسيق ضمن مربع عرض الأكواد - تسهيلاً لنسخ الأكواد منه أو عرضها :

كود :

Imports System
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.ComponentModel

Public Class RoundButton
   Inherits Button

   <DllImport("gdi32.dll", EntryPoint:="CreateRoundRectRgn")>
   Private Shared Function CreateRoundButton(ByVal nLeftRect As Integer, ByVal nTopRec As Integer, ByVal nRightRec As Integer, ByVal nBottomRec As Integer, ByVal nHighRec As Integer, ByVal nWidthRec As Integer) As IntPtr

   End Function

   Protected Overrides Sub OnCreateControl()
       MyBase.OnCreateControl()
       Me.Region = System.Drawing.Region.FromHrgn(CreateRoundButton(2, 2, Me.Width - 2, Me.Height - 2, 20, 20))
   End Sub

   Protected Overrides Sub OnResize(e As EventArgs)
       MyBase.OnResize(e)
       Me.Region = System.Drawing.Region.FromHrgn(CreateRoundButton(2, 2, Me.Width - 2, Me.Height - 2, 20, 20))
   End Sub

End Class