OK ZAK:
Here is my Screenie:

I just cant seem to get that glossy looking appearance on my Actor like the Demo you enhanced!
Here is my Code:
Light.SetSpecularLighting(True)
Dim PointLight As New TV_LIGHT
PointLight.type = CONST_TV_LIGHTTYPE.TV_LIGHT_DIRECTIONAL
PointLight.direction = New TV_3DVECTOR(0.5F, -0.5F, 0.8F)
PointLight.diffuse = New TV_COLOR(0.8F, 0.8F, 0.8F, 1)
PointLight.range = 2500
PointLight.attenuation = New TV_3DVECTOR(0, 0, 0)
Dim LightNo As Integer
LightNo = Light.CreateLight(PointLight, "Sunlight")
Light.EnableLight(LightNo, True)
Light.SetLightProperties(LightNo, True, True, False)
Light.SetGlobalAmbient(0, 0, 0)
Scene.SetShadowParameters(G.RGBA(0, 0, 0, 0.5F), True)
Dim MatID As Integer
MatID = Material.CreateMaterial("Matte")
Material.SetAmbient(MatID, 0.25F, 0.25F, 0.25F, 1)
Material.SetDiffuse(MatID, 1, 1, 1, 1)
Material.SetSpecular(MatID, 0, 0, 0, 1)
Material.SetEmissive(MatID, 0, 0, 0, 1)
Material.SetOpacity(MatID, 1)
Material.SetPower(MatID, 0)
Trooper = Scene.CreateActor
Trooper.LoadTVA("C:\TVTony\VB.NET\Actors\Trooper.tva", True, False)
Trooper.SetMaterial(G.GetMat("Matte"))
Trooper.SetLightingMode(CONST_TV_LIGHTINGMODE.TV_LIGHTING_BUMPMAPPING_TANGENTSPACE)
Trooper.SetShadowCast(True, True)
Trooper.SetRotation(-90, 0, 0)
Trooper.SetPosition(1000, 0, 1000)
Trooper.SetScale(0.015, 0.015, 0.015)