I found a solution by myself:
Sub Process_Globals
Dim anz As Int
End Sub
Sub Globals
Dim TabHost1 As TabHost
Dim TabHostExtras1 As TabHostExtras
Dim ColorDrawable1, ColorDrawable2 As ColorDrawable
End Sub
Sub Activity_Create
...
ColorDrawable1.Initialize(Colors.Blue, 10)
ColorDrawable2.Initialize(Colors.Red, 10)
anz = TabHostExtras1.GetTagWidget(TabHost1).TabCount
ColorTabs
End Sub
Sub ColorTabs
Dim i As Int
For i = 0 To anz - 1
Dim TabIndicator As Panel
TabIndicator = TabHostExtras1.GetTagWidget(TabHost1).GetChildTabViewAt(i)
If i = TabHost1.CurrentTab Then
TabIndicator.Background = ColorDrawable1
Else
TabIndicator.Background = ColorDrawable2
End If
Next
End Sub
Sub TabHost1_TabChanged
ColorTabs
...
End Sub