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