Public Class IconButton
  Inherits Button
 
  ' Das zu zeichnende Icon.
  Private icoIcon As Icon
 
  ' Konstante die das Zeichnen des Controls auslößt.
  Private Const WMPaint As Integer = &HF
 
  ' Das Icon des Buttons.
  Public Property Icon() As Icon
    Get
      Return icoIcon
    End Get
    Set(ByVal Value As Icon)
      icoIcon = Value
    End Set
  End Property
 
  ' Zeichnet das Icon.
  Protected Overrides Sub WndProc(ByRef m As Message)
    MyBase.WndProc(m)
 
    Try
      If m.Msg = WMPaint AndAlso Not icoIcon Is Nothing Then
        CreateGraphics.DrawIcon(icoIcon, (Width - icoIcon.Width) \ 2, (Height - _
          icoIcon.Height) \ 2)
      End If
    Catch
    End Try
  End Sub
End Class