سلام تو کتابخونه اصلی همچین قابلیتی رو نداشت ولی برای اینکه کارتون راه بیفته میتونید از رویداد کلیک و تگ اون ویوی که ادد کردید استفاده کنید کد زیر رو ببینید مثلا برای پنل اینکارو انجام میدم.
Sub Activity_Create(FirstTime As Boolean)
Dim pa As PagerBulletAdapter
pa.Initialize
For i = 0 To 20
Dim p As Panel
p.Initialize("p")
p.Color = Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
p.Tag = i
pa.AddPage(p)
Next
Dim pb As PagerBullet
pb.Initialize(pa,"pb")
Activity.AddView(pb,0,0,100%x,100%y)
End Sub
Sub p_Click
Dim p As Panel
p = Sender
Log(p.Tag)
End Sub
محدودیت که فکر نکنم داشته باشه چون بنده تا صد ایتم هم ادد کردم و خیلی روان کار کرد در مورد اون دایره ها هم اگه ایتم ها بیشتر از 20 تا باشه خودکار تبدیل به تکست میشه.