จะสร้างปุ่มกด 1 ปุ่ม ให้มีหลายๆค่า เช่น กดหนึ่งครั้ง ได้ค่าหนึ่ง กดอีกหนึ่งครั้งได้อีกค่าหนึ่ง พอครบรอบแล้วกลับมาเริ่มใหม่

dim i as int = 0
privet sub bottom() heanled.click
	if i < 10 then
	 i = i++
		else
	 i =1
	end if
end sub

Dim  a as Integer =0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sub Button1.Click
If a<10 
   a+=1
else
   a=0
end if
End Sub