Supplementing With a main.xml File...

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   Dim value1 As String
   Dim value2 As String
   Dim value3 As String
   Dim value4 As String
   Dim value5 As String
   Dim value6 As String
   Dim value7 As String
   Dim timer1 As Timer
   Dim disableCounter As Int
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim ScrollView1 As ScrollView
   Dim seperator As Canvas
   Dim p As Phone
   Dim layoutVal As LayoutValues
   Dim convertButton As Button
   Dim dummyEdit As EditText
   Dim editText1 As EditText
   Dim editText2 As EditText
   Dim editText3 As EditText
   Dim editText4 As EditText
   Dim editText5 As EditText
   Dim editText6 As EditText
   Dim editText7 As EditText
   Dim label1 As Label
   Dim label2 As Label
   Dim label3 As Label
   Dim label4 As Label
   Dim label5 As Label
   Dim label6 As Label
   Dim label7 As Label
   Dim labelTitle As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
      timer1.Initialize("Timer1", 100)
   End If
   Dim y1, y2 As Float
   Dim scrollViewHeight As Int
   
   layoutVal = GetDeviceLayoutValues
   
   If layoutVal.Width >= 480 Then
      scrollViewHeight = 600
   Else If layoutVal.Width >= 320 Then
      scrollViewHeight = 550
   End If

   ScrollView1.Initialize2(DipToCurrent(scrollViewHeight), "ScrollView1")
   ScrollView1.Panel.Width = 100%x
   ScrollView1.Panel.Height = DipToCurrent(scrollViewHeight)
   ScrollView1.Panel.LoadLayout("Main")
   Activity.AddView(ScrollView1, 0, 0, 100%x, 30%y)
   seperator.Initialize(ScrollView1.Panel)
   
   editText1.ForceDoneButton = True
   editText2.ForceDoneButton = True
   editText3.ForceDoneButton = True
   editText4.ForceDoneButton = True
   editText5.ForceDoneButton = True
   editText5.ForceDoneButton = True
   editText6.ForceDoneButton = True
   
   If FirstTime = True Then
      value1 = "1"
      value2 = "2"
      value3 = "3"
      value4 = "4"
      value5 = "5"
      value6 = "6"
      value7 = "7"
   End If

End Sub

Sub Activity_Resume
   Dim x1, x2, y1 As Float
   Dim layoutVal As LayoutValues
   Dim scrollViewHeight As Int
   Dim testPanel As Panel
   
   layoutVal = GetDeviceLayoutValues
      
   If layoutVal.Width >= 480 Then
      scrollViewHeight = 600
   Else If layoutVal.Width >= 320 Then
      scrollViewHeight = 550
   End If

   ScrollView1.Panel.Height = DipToCurrent(scrollViewHeight)
   x1 = 0
   x2 = 100%x
   y1 = (editText5.Top + editText4.Top + editText4.Height) / 2
   seperator.DrawLine(x1, y1, x2, y1, Colors.White, 1)

   editText1.ForceDoneButton = True
   editText2.ForceDoneButton = True
   editText3.ForceDoneButton = True
   editText4.ForceDoneButton = True
   editText5.ForceDoneButton = True
   editText5.ForceDoneButton = True
   editText6.ForceDoneButton = True

   editText1.Text = value1
   editText2.Text = value2
   editText3.Text = value3
   editText4.Text = value4
   editText5.Text = value5
   editText6.Text = value6
   editText7.Text = value7

End Sub

Sub Activity_Pause (UserClosed As Boolean)
value1 = editText1.Text
value2 = editText2.Text
value3 = editText3.Text
value4 = editText4.Text
value5 = editText5.Text
value6 = editText6.Text
value7 = editText7.Text
End Sub

Sub EditText_FocusChanged (HasFocus As Boolean)
   If HasFocus = True Then
      Dim e As EditText
      e = Sender
      If timer1.Enabled = False Then
         e.Text = ""
      End If
   End If
End Sub

Sub ScrollView1_ScrollChanged(Position As Int)
   disableCounter = 3
   If timer1.Enabled = False Then timer1.Enabled = True
End Sub
Sub Timer1_Tick
   disableCounter = disableCounter - 1
   If disableCounter <= 0 Then timer1.Enabled = False
End Sub