Dim DataPacket As StatCommand
DataPacket.Initialize
DataPacket.Command = "RosterInfo" 'Sending roster tables only.
Dim RosterMap As Map
RosterMap.Initialize
RosterMap.Put("HomeRoster", HomeRoster)
RosterMap.Put("GuestRoster", GuestRoster)
RosterMap.Put("PlayersOnCourt", PlayersOnCourt)
DataPacket.Data = RosterMap
If Remote1Status = 3 Then 'Send roster tables to stat remote 1.
If AstreamRemote.IsInitialized = True Then AstreamRemote.Write(ser.ConvertObjectToBytes(DataPacket))
End If
If Remote2Status = 3 Then 'Send roster tables to stat remote 2.
If AstreamRemote2.IsInitialized = True Then AstreamRemote2.Write(ser.ConvertObjectToBytes(DataPacket))
End If