Private Sub optInPlayResult_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                Handles optInPlayResult0.CheckedChanged, optInPlayResult1.CheckedChanged, optInPlayResult2.CheckedChanged, _
                        optInPlayResult3.CheckedChanged, optInPlayResult4.CheckedChanged, optInPlayResult5.CheckedChanged, _
                        optInPlayResult6.CheckedChanged, optInPlayResult7.CheckedChanged, optInPlayResult8.CheckedChanged, _
                        optInPlayResult9.CheckedChanged, optInPlayResult10.CheckedChanged, optInPlayResult11.CheckedChanged

        Dim button As RadioButton = DirectCast(sender, RadioButton)
        If button.Checked = False Then
            butSave.Enabled = False
            Exit Sub
        End If

        Dim idx As Integer

        idx = -1
        If sender Is optInPlayResult0 Then idx = BALL_IN_PLAY_RESULT_OUT
        If sender Is optInPlayResult1 Then idx = BALL_IN_PLAY_RESULT_1B
        If sender Is optInPlayResult2 Then idx = BALL_IN_PLAY_RESULT_2B
        If sender Is optInPlayResult3 Then idx = BALL_IN_PLAY_RESULT_3B
        If sender Is optInPlayResult4 Then idx = BALL_IN_PLAY_RESULT_HR
        If sender Is optInPlayResult5 Then idx = BALL_IN_PLAY_RESULT_FC
        If sender Is optInPlayResult6 Then idx = BALL_IN_PLAY_RESULT_DP
        If sender Is optInPlayResult7 Then idx = BALL_IN_PLAY_RESULT_ERROR
        If sender Is optInPlayResult8 Then idx = BALL_IN_PLAY_RESULT_SF
        If sender Is optInPlayResult9 Then idx = BALL_IN_PLAY_RESULT_SH
        If sender Is optInPlayResult10 Then idx = BALL_IN_PLAY_RESULT_S_ON_BASE
        If sender Is optInPlayResult11 Then idx = BALL_IN_PLAY_RESULT_HRO

        If idx = -1 Then
            Exit Sub
        End If

        butSave.Enabled = True

        bipPlay.BallInPlayResult = idx
        If idx = BALL_IN_PLAY_RESULT_OUT Or idx = BALL_IN_PLAY_RESULT_FC Or idx = BALL_IN_PLAY_RESULT_DP Or _
                        idx = BALL_IN_PLAY_RESULT_SF Or idx = BALL_IN_PLAY_RESULT_SH Or _
                        idx = BALL_IN_PLAY_RESULT_S_ON_BASE Then
            bipPlay.DefensiveSequence = PBPDefensiveSequence(bipPlay.DefensiveSequence)
            RedrawInPlayLocation()
            ' on a fielder's choice, runner ends up on 1st
            If idx = BALL_IN_PLAY_RESULT_FC Or idx = BALL_IN_PLAY_RESULT_S_ON_BASE Then
                bipPlay.FinalBase = 1
            End If
        End If
        If idx >= BALL_IN_PLAY_RESULT_1B And idx <= BALL_IN_PLAY_RESULT_HR Then
            bipPlay.FinalBase = idx
            If idx = BALL_IN_PLAY_RESULT_HR Then
                bipPlay.OnBaseFlags = 2 ^ ON_BASE_FLAGS_EARNED_RUN
            End If
        End If
        If idx = BALL_IN_PLAY_RESULT_ERROR Then
            bipPlay.Errors = PBPDefensiveSequence(bipPlay.Errors, True)
        End If

        lblFinalBase.Visible = (idx = BALL_IN_PLAY_RESULT_ERROR)
        cboFinalBase.Visible = (idx = BALL_IN_PLAY_RESULT_ERROR)
        If cboFinalBase.SelectedIndex = -1 Then cboFinalBase.SelectedIndex = 0

    End Sub