Imports System.ComponentModel
 
<DefaultEvent("CheckedChanged")> _
<ToolboxBitmap(GetType(PicCheckBox), "CheckedNormal16.bmp")> _
Public Class PicCheckBox
    Public Event CheckedChanged As EventHandler
 
    Private _Checked As Boolean = True
    Private _CheckedPicDefault As Image = My.Resources.CheckedNormal
    Private _UncheckedPicDefault As Image = My.Resources.UncheckedNormal
    Private _CheckedPic, _UnCheckedPic As Image
 
    Public Sub New()
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        picCheck.BackgroundImageLayout = ImageLayout.Zoom
        If _Checked Then
            If Not _CheckedPic Is Nothing Then
                picCheck.BackgroundImage = _CheckedPic
            Else
                picCheck.BackgroundImage = _CheckedPicDefault
            End If
        Else
            If Not _UnCheckedPic Is Nothing Then
                picCheck.BackgroundImage = _UnCheckedPic
            Else
                picCheck.BackgroundImage = _UncheckedPicDefault
            End If
        End If
 
        lblText.AutoSize = True
        Me.Height = picCheck.Height
    End Sub
 
    <EditorBrowsable(EditorBrowsableState.Always)> _
    <Browsable(True)> _
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    <Bindable(True)> _
    Public Overrides Property Text As String
        Get
            Return lblText.Text
        End Get
        Set(value As String)
            lblText.Text = value
        End Set
    End Property
 
    Public Property CheckedPic As Image
        Get
            Return _CheckedPic
        End Get
 
        Set(value As Image)
            _CheckedPic = value
            SetPic()
        End Set
    End Property
 
    Public Property UnCheckedPic As Image
        Get
            Return _UnCheckedPic
        End Get
 
        Set(value As Image)
            _UnCheckedPic = value
            SetPic()
        End Set
    End Property
 
    Public Property Checked As Boolean
        Get
            Return _Checked
        End Get
        Set(ByVal value As Boolean)
            If _Checked = value Then Return
            _Checked = value
 
            RaiseEvent CheckedChanged(Me, EventArgs.Empty)
            SetPic()
        End Set
    End Property
 
    'Public Property ToolTip As ToolTip
    '    Get
    '        Return ToolTip1
    '    End Get
 
    '    Set(value As ToolTip)
    '        ToolTip1 = value
    '    End Set
    'End Property
 
 
    Private Sub SetPic()
        If _Checked Then
            If Not _CheckedPic Is Nothing Then
                picCheck.BackgroundImage = _CheckedPic
            Else
                picCheck.BackgroundImage = _CheckedPicDefault
            End If
        Else
            If Not _UnCheckedPic Is Nothing Then
                picCheck.BackgroundImage = _UnCheckedPic
            Else
                picCheck.BackgroundImage = _UncheckedPicDefault
            End If
        End If
 
    End Sub
 
    Private Sub picCheck_Click(sender As System.Object, e As System.EventArgs) _
      Handles picCheck.Click, lblText.Click, Me.Click
        Checked = Not Checked
    End Sub
End Class