Private Sub ChinaRingCkBox_CheckedChanged(ByVal index As Integer, ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim i As Integer
        i = 0
        Dim ChinaRingCk As Boolean = False
        If index = 1 Then
            ChinaRingCk = True
        Else
            If ChinaRingCkBox(index - 2).Checked Then
                ChinaRingCk = True
            End If
            Do While i < index - 2
                If ChinaRingCkBox(i).Checked Then
                    ChinaRingCk = False
                End If
                i = i + 1
            Loop
        End If
        If Not ChinaRingCk Then
     

上一页  [1] [2] [3] [4] [5] 下一页