Sub Partido_Click
Dim pnl As Panel = Sender
If pnl.Tag Is Map Then
Variables.PartidoActual=pnl.Tag
If Variables.PartidoActual.IsInitialized Then
Partido.Show
End If
Else
Msgbox("No se puede cargar el partido en este momento, intente mas tarde","Error")
End If
End Sub