请教如何终止Optionbutton的选中事件？

Question

希望达到的效果：
点击选项之一时，提醒用户选这个选项的风险，如果用户统计则继续选中它，如果不同意则不选择用，维持原选项。

Answer 1

Private Sub Option1_Click(Index As Integer)
  if 用户确认操作=false then
    Option1(上一个).value=true'这个动作还会触发Click事件
  end if
end sub

Answer 2

Option Explicit
Dim LastOption As IntegerPrivate Sub Form_Load()
    Option1(0).Value = True
End SubPrivate Sub Option1_Click(Index As Integer)
    
    If Index = 1 Then
        If vbCancel = MsgBox("Dangerous! Are you sure?", vbOKCancel, "Warning") Then
            Option1(LastOption).Value = True
            Option1(LastOption).SetFocus
            Exit Sub
        End If
    End If
    LastOption = Index
End Sub

Answer 3

我现在就是用LS的方法，但是.value=true又会重新触发_click方法，还要处理。