この Light に接続されている各Shaderオブジェクトを含むShaderCollectionを戻します。
dim pointLight set pointLight = ActiveProject.ActiveScene.Root.AddLight("Point") LogMessage "Shader name: " & pointLight.Shaders(0).Name
Shader