[معاند الحظ]

تفضل اخوي

الكود التالي يحتوي على طريقتين لعمل النتيجة التي تريدها 

كود :

    Dim myMaxNum As Integer = 0

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        myMaxNum += 1
        Label1.Text = Format(myMaxNum, "0\,0\,0\,0")

        ' او يمكنك استخدام السطر التالي
        'فقط قم يتعليق السطر قبل السابق

        'Label1.Text = myMaxNum.ToString("0\,0\,0\,0")


    End Sub