Assign either of these to the corresponding shape

Sub isWrong(oshp As Shape)
oshp.Fill.ForeColor.RGB = vbRed
End Sub


Sub isCorrect(oshp As Shape)
oshp.Fill.ForeColor.RGB = vbGreen
End Sub

However there are several problems with this approach

A The user can click all of the shapes
B The colours will not reset to white when the quiz is over.