dim starlocation as list(of point)= New List(of point)()
とかのトコをやるとか。
結構、むずかしいよコレ。