Namespace MyButton
 
    Public Enum FlatStyle
        Flat = 0
        Popup = 1
        Standard = 2
        System = 3
        MyFlatStyle = 4
    End Enum
 
    Public Class MyButton
        Inherits Button
        Private _FlatStyle As FlatStyle
 
        Public Shadows Property FlatStyle() As FlatStyle
            Get
                Return Me._FlatStyle
            End Get
            Set(ByVal value As FlatStyle)
                Me._FlatStyle = value
                If Not value = _
                  WindowsApplication1.MyButton.FlatStyle.MyFlatStyle Then
                    MyBase.FlatStyle = CType(CInt(value), _
                    System.Windows.Forms.FlatStyle)
                End If
                Me.Refresh()
            End Set
        End Property
 
        Protected Overrides Sub OnPaint(ByVal pevent As _
          System.Windows.Forms.PaintEventArgs)
            MyBase.OnPaint(pevent)
            If Me._FlatStyle = _
              WindowsApplication1.MyButton.FlatStyle.MyFlatStyle Then
                Dim p As New Pen(BackColor, 3)
                Dim r As Rectangle = New Rectangle(0, 0, _
                  Me.ClientRectangle.Width - 2, Me.ClientRectangle.Height - 2)
                pevent.Graphics.DrawRectangle(p, r)
                p.Dispose()
            End If
        End Sub
 
    End Class
 
End Namespace

 
    Dim b As MyButton.MyButton
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        b = New MyButton.MyButton
        b.Flatstyle = MyButton.Flatstyle.MyFlatstyle
        b.Size = New Size(100, 100)
        b.Text = "My Button"
        Me.Controls.Add(b)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        b.Flatstyle = MyButton.Flatstyle.Standard
    End Sub