Hi Again!
Just a simple dynamic light sample (adds a nice red light, which orbits around a point and has a billboard sprite)
(Adapted from the C++ samples.....)
Private Function AddDynamicLights(ByRef smgr As ISceneManager, ByRef levelNode As ISceneNode)
Dim bill As IBillboardSceneNode
Dim d As Dimension2Df
Dim v3 As Vector3D
Dim anim As ISceneNodeAnimator
Dim v4 As Vector3D
Dim c3 As Colorf
Dim redLight As ILightSceneNode
v.X = 0 : v.Y = 20 : v.Z = 0
c3.a = 0.5F : c3.r = 1.0F : c3.g = 0.0F : c3.b = 0.0F
redLight = smgr.AddLightSceneNode(levelNode, v3, c3, 15.0F, 6)
' add fly circle animator to redLight
v4.X = 0 : v4.Y = 20 : v4.Z = 0
anim = smgr.CreateFlyCircleAnimator(v4, 25, -0.003)
redLight.AddAnimator(anim)
' attach billboard to the light
d.Width = 10 : d.Height = 10
bill = smgr.AddBillboardSceneNode(redLight, d, v4, 7)
bill.SetMaterialFlag(MaterialFlag.LIGHTING, False) 'we don't want to light the billboard!
bill.SetMaterialType(MaterialType.TRANSPARENT_ADD_COLOR)
bill.SetMaterialTexture(0, m_driver.GetTexture("../../../media/particlered.bmp"))
End Function