Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
Me.Image1.BorderColor = vbRed
Else
Me.Image1.BorderColor = vbBlack
End If
UserForm1.Repaint
End Sub
Private Sub Image1_Click()
If Me.CheckBox1 = True Then
Me.CheckBox1 = False
Me.Image1.BorderColor = vbBlack
Else
Me.CheckBox1 = True
Me.Image1.BorderColor = vbRed
End If
UserForm1.Repaint
End Sub