[sooriaty03]

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
جرب هذا الكود

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = False
        For XX = 0 To 1000000000
            TTX2.Text = XX
            Application.DoEvents()
        Next
        Button2.Enabled = True
    End Sub

الكود السابق سوف لن يعلق لكنه سيتأخر
بالتوفيق