[aljzazy]

بامكانك استخدام جملة شرطية اذا كان الرقم بالتكست بوكس زوجي
ينفذ ما تريد وان لم يتحقق الشرط ينفذ الامر الاخر
هذه الجملة الشرطية للارقام الزوجية

كود :

Dim a as integer
a = text1.text
if  a mod 2=0 then
     "ما تريد فعله"
  Else
     "امر اخر تريد تنقيذه"
  Endif