But you can make it act like one with a little bit of code.
Code:
Private Sub Check1_Click()
    If Check1 = Checked Then Exit Sub
    
    Print "Button was pressed"
End Sub

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Check1 = Unchecked
End Sub