Android Tutorial Collecting tips - Beginners wanted!

Sub EditText1_TextChanged (Old As String, New As String)
If New.Length > 39 Then
   EditText1.Text = Old
   EditText1.SelectionStart = Old.Length
' insert code to trigger phone vibrate or display toastmessage
End If
End Sub

'   Set tab height example activity
Sub Process_Globals
End Sub

Sub Globals
   Dim EditText1 As EditText
   Dim Reflector1 As Reflector
   Dim TabHost1 As TabHost
   Dim Button1 As Button
   Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("LayoutMain")
   
   Dim i As Int
   For i=0 To 3
      TabHost1.AddTab("Tab#"&i, "TabContent")
      EditText1.Tag=i
      Label1.Text="This is Tab#"&i
   Next
   
   Dim TabWidget As Object
   Dim TabIndicator As View
   Dim TabIndex, TabCount As Int
   
   '   the Java to execute is:
   '   TabHost1.getTabWidget().getChildAt(TabIndex).getLayoutParams().height = 30;
   
   Reflector1.Target=TabHost1
   TabWidget=Reflector1.RunMethod("getTabWidget")
   Reflector1.Target=TabWidget
   TabCount=Reflector1.RunMethod("getTabCount")
   For TabIndex=0 To TabCount-1
      TabIndicator=Reflector1.RunMethod2("getChildAt", TabIndex, "java.lang.int")
      TabIndicator.Height=30
   Next
   '   the (global) Reflector1 Target object will be TabHost1's TabWidget object when this Sub exits 
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub EditText1_EnterPressed
   Dim Index As String
   Dim TabIndicator As View
   Dim EditText2 As EditText
   Dim Value As Int
   EditText2=Sender
   If EditText2.Text<>"" Then
      Index=EditText2.Tag
      Value=EditText2.Text
      TabIndicator=Reflector1.RunMethod2("getChildAt", Index, "java.lang.int")
      TabIndicator.Height=Value
   End If
End Sub

Sub TabHost1_SetVisibility(Visible As Boolean)
   Dim TabIndex, TabCount, TabHeight As Int
   Dim TabIndicator As View
   If Visible Then
      TabHeight=30
   Else
      TabHeight=0
   End If
   TabCount=Reflector1.RunMethod("getTabCount")
   For TabIndex=0 To TabCount-1
      TabIndicator=Reflector1.RunMethod2("getChildAt", TabIndex, "java.lang.int")
      TabIndicator.Height=TabHeight
   Next
End Sub

Sub Button1_Click
   Dim Button2 As Button
   Dim Text As String
   Button2=Sender
   Text=Button2.Text
   If Text="Hide tabs" Then
      TabHost1_SetVisibility(False)
      Button2.Text="Show tabs"
   Else
      TabHost1_SetVisibility(True)
      Button2.Text="Hide tabs"
   End If
End Sub

Dim HttpClient1 As HttpClient