Enlarging Check boxes in continuous form

I am trying to increase the size of checkboxes through the use of wingdings by using this method.

Private Sub Form_Current()   
If Me.chkVerify = True Then   
lblLargeCheck.Caption = Chr(252)   
Else   
lblLargeCheck.Caption = " " ' a space
End If
End Sub

Private Sub lblLargeCheck_Click()
[chkVerify] = Not ([chkVerify])
If [chkVerify] = True Then
lblLargeCheck.Caption = Chr(252)
Else
lblLargeCheck.Caption = " " ' a space
End If
End Sub

Here is the error that i run into:

Notice the first check box is marked and the label check box has been all checked. Is there a work around this problem? I only want the large checkbox to be shown for a particular row only if the checkbox is marked. I will be hiding the checkbox at the end.