[es5s930]

تقريبا

اول شي تعرف متغير بنوع Integer

وكل ماجيت تضغط الزر يزيد المتغير رقم

لين م يوصل الى 10 ويوقف الضغط

مثال بسيط

كود :

   Dim Clicks As Integer = 0
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Clicks = 10 Then
           MsgBox("تخطيت الازرار المسموحه")
       Else
           Clicks = Clicks + 1
       End If
   End Sub