سلام به این صورت تست کنید...
Dim pa As PagerBulletAdapter
pa.Initialize
For i = 1 To 7
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,i&".jpg"))
pa.AddPage(imageview1)
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)