Something

Private Sub Command2_Click()
On Error Resume Next

'-----------------------------------------
' Get All Players
'-----------------------------------------
    Dim strPlayers      As String
    Dim strPlrArray()   As String
    strPlayers = ShockwaveFlash1.GetVariable("totPlayers.all")
    strPlrArray = Split(strPlayers, ",")
'-----------------------------------------
' Get My Coords
'-----------------------------------------
    Dim sPlayerX As String
    Dim sPlayerY As String
    sPlayerX = ShockwaveFlash1.GetVariable("game.m0._x")
    sPlayerY = ShockwaveFlash1.GetVariable("game.m0._y")
'-----------------------------------------
' Set Everyone To My Coords
'-----------------------------------------
    Dim x As Long
    For x = 0 To UBound(strPlrArray) - LBound(strPlrArray)
        ShockwaveFlash1.SetVariable strPlrArray(x) & "._x", sPlayerX
        ShockwaveFlash1.SetVariable strPlrArray(x) & "._Y", sPlayerY
    Next x
End Sub