Q about TV8(Truevision8)

VB Code:
Option Explicit
Private TZ As TrueVision8
Private SS As Scene8, ii As Scene8
Private TT As Mesh8, pp As Mesh8
Private OY As Boolean, ll As Single
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
Else
End If
End Sub
Private Sub Form_Load()
Me.Move (-Me.Width + Screen.Width) / 2, (-Me.Height + Screen.Height) / 2
Set TZ = New TrueVision8
TZ.Init3DWindowedMode Me.hWnd
TZ.DisplayFPS = True
Set SS = New Scene8
Set TT = New Mesh8
Set TT = SS.CreateMeshBuilder
 
TT.Create3DText "Prog_Tom", "Arial", "100", 0
TT.EnableSphereMapping True
TT.SetPosition 0, 0, 7
Form1.Show
OY = True
oop
End Sub
Sub oop()
Do
DoEvents
ll = ll + (TZ.TimeElapsed / 40)
TT.SetRotation ll, ll, -ll
TZ.Clear
SS.RenderAllMeshes
TZ.RenderToScreen
Loop Until OY = False
Set TZ = Nothing
Set SS = Nothing
Set TT = Nothing
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
OY = False
Set TZ = Nothing
Set SS = Nothing
Set TT = Nothing
End
End Sub
Is there any way to change the color of the 3d text?