[eng.khalidvb]

الســــــــــــــــــــــــــــلام عليكم

تفضل اخي هذا الكود   البسيط ينجز لك المهمه بكفاه عاليه

كود :

 Dim a As Integer

Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
        a = a + 1
        TextBox1.Text = a
        If a = 10 Then
            MsgBox("You click the button " & a & " times")
            TextBox1.Enabled = False
            a = 0
            TextBox1.Text = a
        End If
    End Sub