scrollview automatically scroll to the bottom

sv.ScrollPosition = sv.Panel.Height

sv.ScrollPosition = sv.Panel.Height
DoEvents
sv.ScrollPosition = sv.Panel.Height
DoEvents

'Save ScrollView Positon

saveScrollPos = myScrollView.ScrollPosition

 myScrollView.ScrollPosition = saveScrollPos

Private Sub ScrollTo(sv As ScrollView, pos As Int)
   'sv.ScrollTo smoothly scrolls to the position. In this case we want to immediately change the scroll position
   'so we use Reflection to call the native scrollTo method.
   Dim r As Reflector
   r.Target = sv
   r.RunMethod3("scrollTo", 0, "java.lang.int", pos, "java.lang.int")
End Sub

Dim Auto1 As AutoCompleteEditText
    Dim ImageView1 As ImageView
    Dim Button1 As Button
    Dim Button2 As Button
    Dim Button3 As Button
    Dim Button4 As Button
    Dim Label1 As Label
    Dim Label2 As Label
    Dim Label3 As Label
    Dim Label4 As Label
    Dim timer1 As Timer
    Dim Img2 As ImageView
   
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
Dim Answ As Int
Dim txt As String
Select KeyCode
Case KeyCodes.KEYCODE_BACK
Answ = Msgbox2("Confermare uscita","ATTENZIONE","Si", "", "No", Null)
If Answ = DialogResponse.NEGATIVE Then
Return True
Else
Activity.Finish
Return False
End If
End Select
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("home")
    Auto1.Initialize("Auto1")
    Activity.AddView(Auto1,10dip,10dip,300dip,70dip)
    Dim nomi () As String
    nomi = Array As String ("terme","grand","italia","polo","president","branca","maria","albergo","hotel","stelle","congressi")
    Auto1.SetItems(nomi)
    timer1.Initialize("timer1",5000)
    timer1.Enabled=True
    Img2.Visible=True
    Img2.BringToFront

End Sub
Sub    timer1_tick
    Img2.Visible=False
    timer1.Enabled=False
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button4_Click
    Msgbox("3735254716","info")
End Sub
Sub Button3_Click
    Msgbox("info@langolodelbio.com","info")
End Sub
Sub Button2_Click
    StartActivity(estero)
End Sub
Sub Button1_Click
    StartActivity(italia)
End Sub