¿Qué será?

Option Explicit

'@@ Autor: G Toyz
'@@ Fecha: 04/10
'@@ Creación: 22:23

Private Const refError   As String = "No cumples los requisitos"
Private Const MAX_ARENAS As Byte = 3

Private Type uRetos
    ID              As Integer
    Pos             As WorldPos
    X               As Byte
    Y               As Byte
End Type

Private Type tRetos
    Rounds          As Byte
    Users(1 To 3)   As uRetos
End Type

Private Type Retos
    Teams(1 To 2)   As tRetos
    MAP_Arena       As Byte
    Count           As Byte
    Occupied        As Boolean
End Type

Private Retos(1 To MAX_ARENAS) As Retos
'_
Private Sub Start_Arenas(ByVal N_Arena As Integer, _
                         ByVal MAP_Arena As Byte, _
                         ByVal Team1_X As Byte, _
                         ByVal Team1_Y As Byte, _
                         ByVal Team2_X As Byte, _
                         ByVal Team2_Y As Byte)

    '@@ Cargar las X y Y de cada usuario en cada arena
    '@@ El cálculo es para posicionar uno abajo del otro o viceversa.

    Dim LoopC As Long

    With Retos(N_Arena)
        For LoopC = 1 To 3
            .Teams(Team1).Users(LoopC).X = Team1_X
            .Teams(Team1).Users(LoopC).Y = Team1_Y - 1 + LoopC
            .Teams(Team2).Users(LoopC).X = Team2_X
            .Teams(Team2).Users(LoopC).Y = Team2_Y + 1 - LoopC
        Next LoopC
        .MAP_Arena = MAP_Arena
    End With

End Sub

Public Sub Load_Arenas()

    '@@ Pongan sus mapas y coordenadas.
    '@@ Llamadas: Main.

    Call Start_Arenas(1, 1, 1, 1, 1, 1)
    Call Start_Arenas(2, 1, 1, 1, 1, 1)
    Call Start_Arenas(3, 1, 1, 1, 1, 1)

End Sub

Private Sub Send(ByVal IDPlayer1_Shipping As Integer, _
                 ByVal IDPlayer2_Team_Shipping As Integer, _
                 ByVal IDPlayer3_Team_Shipping As Integer, _
                 ByVal IDPlayer1_Team_Receive As Integer, _
                 ByVal IDPlayer2_Team_Receive As Integer, _
                 ByVal IDPlayer3_Team_Receive As Integer, _
                 ByVal Gold As Long, _
                 ByVal Items As Boolean, _
                 ByVal Potions As Integer)



End Sub