tick mark for Rectangle if checkbox is true

[MKLAQ]

hello
I have userform contains two checkboxes "cash & unpaid " and I have two shapes are Rectangle1,Rectangle2 in sheet1 so what I want if I check cash then tick mark for Rectangle1 and if I check unpaid then tick mark unpaid for Rectangle2
any idea guys , please?

 

[MKLAQ]

I try write this but I failed , any body has idea?

Private Sub CommandButton4_Click()
If CheckBox1.Value = True Then
ActiveSheet.Shapes("Rectangle1").OLEFormat.Object = ChrW(&H2713)
CheckBox2.Value = False
ActiveSheet.Shapes("Rectangle2").OLEFormat.Object = ""
ElseIf CheckBox2.Value = True Then
ActiveSheet.Shapes("Rectangle2").OLEFormat.Object = ChrW(&H2713)
CheckBox1.Value = False
ActiveSheet.Shapes("Rectangle1").OLEFormat.Object = ""
End If
End Sub