Dim JO As JavaObject = TabHostName
For i = 0 To JO.RunMethod("getChildCount",Null)-1
Dim V As View = JO.RunMethod("getChildAt",Array As Object(i))
If V is CheckBox Then
Dim CB As CheckBox = V
If CB.Selected Then
If CB.Tag = "1" Then
'Do whatever
End if
End If
End If
Next