TYPE TDeelbereik
	bereik(-15 TO 20) AS INTEGER
END TYPE
DIM Deelbereik AS TDeelbereik
Deelbereik.bereik(-5) = 100
Debug.Print Deelbereik.bereik(-5)	'hier wordt de waarde 100 geprint
