Public Event CheckChanged As EventHandler

Dim instance As FpCheckBox
Dim handler As EventHandler
 
AddHandler instance.CheckChanged, handler

public event EventHandler CheckChanged

private void Form1_Load(object sender, System.EventArgs e)
{
     control.CheckState = CheckState.Unchecked;
     control.PictureAlignH=FarPoint.Win.HorizontalAlignment.Center;
     control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center;
     control.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", true), FarPoint.Win.RenderStyle.Normal);
}
private void control_CheckChanged(object sender, System.EventArgs e)
    {
    if (control.CheckState == CheckState.Checked)
    { 
        control.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", true), FarPoint.Win.RenderStyle.Normal);
        control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center;
        control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center;
        control.TextTrue = "Mail's been checked";
    }
   else if (control.CheckState == CheckState.Unchecked) 
   {
        control.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("d:\\mail16b.ico", true), FarPoint.Win.RenderStyle.Normal);
        control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center;
        control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center;
        control.TextFalse = "Mail needs to be checked";
    }
    else
    {
        control.CheckState = CheckState.Indeterminate;
        control.TextIndeterminate = "No mail today";
    }
} 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     control.Checked = False
     control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", True), FarPoint.Win.RenderStyle.Normal)
End Sub

Private Sub control_CheckChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles control.CheckChanged
     If control.CheckState = CheckState.Checked Then
          control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", True), FarPoint.Win.RenderStyle.Normal)
          control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center
          control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center
          control.TextTrue = "Mail's been checked"
     ElseIf control.CheckState = CheckState.Unchecked Then
          control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16b.ico", True), FarPoint.Win.RenderStyle.Normal)
          control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center
          control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center
          control.TextFalse = "Mail needs to be checked"
     Else
          control.CheckState = CheckState.Indeterminate
          control.TextIndeterminate = "No mail today"
     End If
 End Sub