'Declaration
Public Sub GetAttenuation( _
ByRef As Single, _
ByRef As Single, _
ByRef As Single _
)
'Usage
Dim instance As ImGearVectorLightSource
Dim constantFactor As Single
Dim linearFactor As Single
Dim quadraticFactor As Single
instance.GetAttenuation(constantFactor, linearFactor, quadraticFactor)