passing a type variable to a function

Type playerdata 
	Field speed 
	Field strength 
End Type 

Dim player.playerdata(4) 

player.playedate(1) = New playerdata 
player.playedate(2) = New playerdata 

player(1)\strength=1 
player(2)\strength=7 

increment_lives ( player(1)) 
increment_lives ( player(2)) 

;------------------------ 

Function increment_lives ( somethinghere.playerdata ) 

	somethinghere\strength = somethinghere\strength + 1 

End Function 

;-------------------------