[Amin_Mansouri]

درود
خوش امدید
1.واسه کم کردن و زیاد کردن کافیه یه متغییر بیگیری من 2 تا تابع و 2 تا باتن گذاشتم میتونی تست امتحان کنی یکیشون کم میکنه و کییشون به عدد اضافه میکنه
سورس :

کد:

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim Num As Long
    Dim NumDastan As Long


End Sub




Sub Button2_Click
Num = Num - 1
If Num = 0 Then  Num = 1
check    
End Sub



Sub Button11_Click
Num = Num + 1
If Num = 68 Then  Num =68
check    
End Sub

Sub nextt_Click
NumDastan = NumDastan + 1
If NumDastan = 68 Then  NumDastan =126
check2    
End Sub

Sub back_Click
NumDastan = NumDastan - 1
If NumDastan = 0 Then  NumDastan =1
check2    
End Sub

2.واسه خروج از برنامه کدش تو همین تایپک هست میتونی تو فایل بنویسی یا توی دیتابیس سمپل واسه دیتابیس هم هست.
3.اینو تست نکردم معمولا این کار هم لازم نیست هم باطری گوشی فشار میاره هم بعضی از کاربرا کلافه میکنه
و در کل بهتون میگم این جا و تمامی مقاله های که همراه فایل هست رو مطالعه کنید به سوال هاتون میرسید.