Android Question B4A - compile and run error

'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
    Type  TTeeNameColors(TeeID As Int, TeeName As String, FGColor As Int, BGColor As Int)

    Dim mTeeNameColors() As TTeeNameColors  = Array As TTeeNameColors(MakeTeeNameColors(0, "Select Tee" ,  Colors.RGB(0, 0, 0),  Colors.RGB(255, 255, 255)), _
                                                                      MakeTeeNameColors(1, "Black"     ,  Colors.RGB(255, 255, 255),  Colors.RGB(0, 0, 0)))																	  
End Sub


Sub MakeTeeNameColors(TeeID As Int, TeeName As String, FGColor As Int, BGColor As Int) As TTeeNameColors
    Dim TNC As TTeeNameColors

    TNC.Initialize
    TNC.TeeID     = TeeID
    TNC.TeeName   = TeeName
    TNC.FGColor   = FGColor
    TNC.BGColor   = BGColor
 
    Return TNC
End Sub

[ATTACH]25246[/ATTACH]
[ATTACH]25245[/ATTACH] 


Thanks BobVal