کار با دستور mod در b4a

سلام من یک حلقه تکرار  ساختم   که میخوام مقدار  متغیر i    رو چک کنه که ببینه  بر دو عدد یا چند عدد بخش پذیر هست  یا نیست

For i=100 To 140
		If	 ( i 	Mod 2 =0 ) Then
		End If
	Next

با این کد من چک میکنم که ایا i  بر 2بخش پزیر هست یا نه

حالا میخام که همزمان برای چند عدد چک کنه  مثلا که هم بر 2 و 4  و یا …. بخش پذیر هست یا نه

تشکر