public Sub setEnabled(b As Boolean)
enab = b
draw
End Sub
private Sub draw
If (pnlItemBack.IsInitialized) Then
...
cbItem.CheckedBackgroundColor = cclr
cbItem.Enabled = enab
cbItem.Checked = chk
...
End If
End Sub
Private Sub pnlItemBack_Click
If (enab) Then
chk = Not(chk)
draw
End If
End Sub
Private Sub cbItem_CheckedChange(Checked As Boolean)
chk = Checked
If (xui.SubExists(mCallBack,mEventName&"_check",1)) Then
CallSubDelayed2(mCallBack,mEventName&"_check",Checked)
End If
End Sub