Select Case DefaultButton
            Case MsgNDefaultButton.cmd1
                ShowMsgN.AcceptButton = ShowMsgN.cmd1
            Case MsgNDefaultButton.cmd2
                ShowMsgN.AcceptButton = ShowMsgN.cmd2
            Case MsgNDefaultButton.cmd3
                ShowMsgN.AcceptButton = ShowMsgN.cmd3
        End Select

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        cmd1.UseVisualStyleBackColor = False
    End Sub

    Public Sub SetButtonStyle(ByVal DefaultButton As MsgNDefaultButton, ByVal _
      ButtonStyle As MsgNButtonStyle, Optional ButtonColor As Color = Nothing, _
      Optional BorderColor As Color = Nothing, Optional BorderWidth As Integer _
      = 2)
        Dim BStyle As FlatStyle = FlatStyle.Standard
 
        Select Case ButtonStyle
            Case MsgNButtonStyle.Normal
                BStyle = FlatStyle.Standard
 
            Case MsgNButtonStyle.W8
                BStyle = FlatStyle.Flat
                BCol = BorderColor
                BWidth = BorderWidth
        End Select
 
        For Each ctrl In Me.Controls.OfType(Of Button)()
            If BStyle = FlatStyle.Flat Then
                ' ctrl.FlatAppearance.BorderColor = ctrl.BackColor
                ctrl.FlatAppearance.BorderSize = 0
                ctrl.BackColor = ButtonColor
                ctrl.UseVisualStyleBackColor = False
            End If
            ctrl.FlatStyle = BStyle
        Next
    End Sub