Well, there are plenty of no-tick/gray-tick/full-tick examples, so clearly it should be possible. I expect if you generalize a bit further to a multi-state button that cycles through the states click by click, you'll find something that does the job.
or as a first-draft homebrew, you could roll your own using a regular label, advance it one step through the sequence on each click, eg:
Sub Label1_MouseClicked (EventData As MouseEvent)
Dim Sequence As String = "☐☑☒☐" 'Unicode characters, but you could probably use FontAwesome instead.
Label1.Text = Sequence.CharAt(Sequence.IndexOf(Label1.Text) + 1)
In fact, you could change the color too or even use Unicode emojis eg: