سلام از کد زیر استفاده کنید...
Dim pa As PagerBulletAdapter
pa.Initialize
For i = 1 To 7
Dim p As Panel
p.Initialize("p")
p.SetBackgroundImage(LoadBitmap(File.DirAssets,i&".jpg"))
Dim l As Label
l.Initialize("l")
p.AddView(l,10%x,70%y,90%x,80%y)
Select i
Case 1
l.Text = "خوش آمدید"
Case 2
l.Text = "این نرم افزار خوبی هست"
.
.
.
End Select
pa.AddPage(p)
Next
Dim pb As PagerBullet
pb.Initialize(pa,"pb")
pb.setDotsColor(Colors.White,Colors.LightGray)
pb.Transition = pb.ZOOM_OUT_SIDE
Activity.AddView(pb,0,0,100%x,100%y)