Sub PreventUpperCase(th As TabHost)
Dim p As Phone
If p.SdkVersion >= 14 Then
Dim jo As JavaObject = th
Dim pnl As Panel = jo.RunMethod("getTabWidget", Null)
For Each v As View In pnl.GetAllViewsRecursive
If v Is Label Then
Dim j As JavaObject = v
j.RunMethod("setAllCaps", Array(False))
End If
Next
End If
End Sub