Sub ToggleButton1_CheckedChange(Checked As Boolean)
Dim i, G As Int
Dim objType As String
If Checked Then
G = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.RIGHT)
Else
G = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.LEFT)
End If
For i = 0 To Activity.NumberOfViews - 1
objType = GetType(Activity.GetView(i))
Select objType
Case "android.widget.TextView", _
"android.widget.EditText", _
"android.widget.RadioButton", _
"android.widget.CheckBox"
Dim lbl As Label
lbl = Activity.GetView(i)
lbl.Gravity = G
End Select
Next
End Sub