مشکل در محدود کردن لیست موضوعات

[msms 2]

سلام دوستان لطفا کمکم کنید.

لیست موضوعات من تو اسکرول ویو با این کدها شروع میشه

    'لیست شروع
    Dim h As Int
    
    If File.Exists (File.DirInternal,"all.db") = False Then
        File.Copy(File.DirAssets,"all.db",File.DirInternal,"all.db")
    End If
    
    If s.IsInitialized=False Then
        s.Initialize (File.DirInternal,"all.db",True)
    End If
    
    Dim cur As Cursor
    cur = s.ExecQuery ("SELECT * FROM Main")
    
        
    h= 1%y
    For i = 0 To cur.RowCount-1
        cur.Position = i
        Dim btn As Button
        btn.Initialize("Btn")
        btn.Text = cur.GetString("onvan")
        btn.TextColor = Colors.Black
        btn.Typeface = Typeface.LoadFromAssets("tahoma.ttf")
        btn.Tag  = cur.GetInt("ID")
        Dim b As BitmapDrawable
        b.Initialize(LoadBitmap(File.DirAssets,"button1.png"))
        btn.Background=b
        ScrollView1.Panel.AddView(btn,2%x,h,ScrollView1.Width-4%x,ScrollView1.Height)
        btn.Height = 12%y
        anim.playAnimationObject(btn,"translate",1000,0.5)
        h=h+13%y
    Next
    ScrollView1.Panel.Height = h
    'لیست پایان

    حالا من چطور این لیست رو محدود کنم یعنی چطور کد نویسی کنم برای درون پرداخت؟

(برای لیست ویو بلدم ولی برای این نوع لیست کردن نه؟)   

Dim a As Int
    Position = Position
    If (Position>15) And (File.Exists(File.DirInternalCache,"buy.text") =False) Then
    
        a=Msgbox2("این قسمت در نسخه اصلی","پیام سیستم","الان می خرمش","","پول ندارم",Null)
        If a = DialogResponse.POSITIVE Then
            StartBuy
        End If
        If a = DialogResponse.NEGATIVE Then
    
        End If
    Else
    
        StartActivity("ََa_matn")
    
    End If

لطفا کمکم کنید؟