PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
control.Checked = False
control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", True), FarPoint.Win.RenderStyle.Normal)
End SubPrivateSub control_CheckChanged(ByVal sender AsObject, 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"EndIfEnd Sub