An array containing a type

Cna someone tell me why this isn't working:

Type Tplayer
Field x
Field y
Field x_inc
Field y_inc
Field frame
End Type

Global player:Tplayer[] =New Tplayer[4]

player(1).x=0
player(1).y=200
player(1).x_inc=1
player(1).y_inc=1
player(1).frame=0

player(2).x=0
player(2).y=220
player(2).x_inc=2
player(2).y_inc=2
player(2).frame=32