Public Class MyButton
    Inherits System.Windows.Forms.Button
 
#Region " Vom Component Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
        InitializeComponent()
 
        'Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu
        Me.m_Dimm = 0.5
        Me.m_OrgBackColor = Me.BackColor
        Me.m_OrgFont = Me.Font
        Me.Size = New Size(80, 32)
    End Sub
 
    'Das Steuerelement überschreibt den Löschvorgang zum Bereinigen der 
    ' Komponentenliste.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Für den Steuerelement-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    ' HINWEIS: Die folgende Prozedur ist für den Komponenten-Designer 
    ' erforderlich.
    ' Sie kann mit dem Komponenten-Designer bearbeitet werden. Verwenden Sie 
    ' nicht den
    ' Code-Editor zur Bearbeitung.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
    End Sub
 
#End Region
 
    Private m_Dimm As Double
    Private m_OrgBackColor As Color
    Private m_OrgFont As Font
 
    Public Property DimmFaktor() As Double
        Get
            Return Me.m_Dimm
        End Get
        Set(ByVal Value As Double)
            If Value < 0.1 Then Value = 0.1
            Me.m_Dimm = Value
        End Set
    End Property
 
    Protected Overrides Sub OnMouseDown(ByVal mevent As _
      System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(mevent)
        Try
            If Me.Enabled = False Then
                Me.BackColor = Me.m_OrgBackColor
                Return
            End If
            Me.BackColor = System.Drawing.Color.FromArgb(Me.BackColor.A * _
              Me.m_Dimm, Me.BackColor.R, Me.BackColor.G, Me.BackColor.B)
        Catch ex As Exception
            Me.BackColor = Me.m_OrgBackColor
        End Try
    End Sub
 
    Protected Overrides Sub OnMouseUp(ByVal mevent As _
      System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseUp(mevent)
        Try
            If Me.Enabled = False Then
                Me.BackColor = Me.m_OrgBackColor
                Return
            End If
            Me.BackColor = System.Drawing.Color.FromArgb(Me.BackColor.A / _
              Me.m_Dimm, Me.BackColor.R, Me.BackColor.G, Me.BackColor.B)
        Catch ex As Exception
            Me.BackColor = Me.m_OrgBackColor
        End Try
    End Sub
 
    Protected Overrides Sub OnMouseEnter(ByVal eventargs As System.EventArgs)
        MyBase.OnMouseEnter(eventargs)
        Try
            If Me.Enabled = False Then
                Me.Font = Me.m_OrgFont
                Return
            End If
            Me.Font = New Font(Me.Font, _
                Me.Font.Style Or FontStyle.Bold)
        Catch ex As Exception
            Me.Font = Me.m_OrgFont
        End Try
 
    End Sub
 
    Protected Overrides Sub OnMouseLeave(ByVal eventargs As System.EventArgs)
        MyBase.OnMouseLeave(eventargs)
        Try
            If Me.Enabled = False Then
                Me.Font = Me.m_OrgFont
                Return
            End If
            Me.Font = New Font(Me.Font, _
                Me.Font.Style And Not FontStyle.Bold)
        Catch ex As Exception
            Me.Font = Me.m_OrgFont
        End Try
 
    End Sub
End Class