Finish

Private Sub Finish_Event(ByVal nEvent As Byte)

    '@@ Finalizamos el evento.

    Dim LoopC As Long
    Dim LoopX As Long
    Dim Max_Loop As Byte

    With Events(nEvent)
        Max_Loop = UBound(.Teams())

        For LoopC = 1 To Max_Loop
            If .Teams(LoopC).Points_Earned = .Team_PointLeader Then
                .Teams(LoopC).Rounds = .Teams(LoopC).Rounds_Earned - .Teams(LoopC).Rounds_Defeated
                .Teams(LoopC).K€D = .Teams(LoopC).Killed - .Teams(LoopC).Deaths
                If .Teams(LoopC).Rounds > .Best_Rounds Then
                    .Best_Rounds = .Teams(LoopC).Rounds
                    .Best_K€D = .Teams(LoopC).K€D
                    .Team_Win = LoopC
                ElseIf .Teams(LoopC).Rounds = .Best_Rounds Then
                    If .Teams(LoopC).K€D > .Best_K€D Then
                        .Best_K€D = .Teams(LoopC).K€D
                        .Team_Win = LoopC
                    ElseIf .Teams(LoopC).K€D = .Best_K€D Then
                        .Team_Win = 0
                    End If
                End If
            End If
        Next LoopC

    End With

End Sub