问MsgBox出现多次

EN

Dim inCheckedChanged As Boolean = False
......

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object,      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
     Try
        ' If we could display the message box..... 
        if inCheckedChanged = False then
           ' Block the reexecution of the MessageBox when clicking NO
            inCheckedChanged = True
            Dim result As Integer = MessageBox.Show("message", "caption",      MessageBoxButtons.YesNo)
            If result = DialogResult.No Then
                ' Now, changing the property reenters the event handler 
                ' but the global variable prevents to get a second messagebox
                RadioButton1.Checked = False
            ElseIf result = DialogResult.Yes Then
                memoryh4x(&H160ED98, 1, 4)
            End If
         End If
    Finally
         InCheckedChanged = False
    End Try
 End Sub