[motazsaad94@gmail.com]

(03-12-18, 10:50 PM)عبدالرحمن رمضان كتب : وعليكم السلام ورحمة الله وبركاته
اليك الاجابة اخي

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim x As Integer = Val(TextBox1.Text)
       Select Case x
           Case 1
               Label1.Text = 5
           Case 2
               Label1.Text = 10
           Case 3
               Label1.Text = 14
           Case 4
               Label1.Text = 17
           Case 5
               Label1.Text = 19
           Case Is <= 6
               Label1.Text = 20
       End Select
   End Sub
End Class

شكراً أخي تم الحل  

هل تعرف طريقة سهلة لتكرار أو نسخ هذا الكود 100 مرة مع تغيير Label1 إلى 2 و 3 ........ 100 , أم ليس هناك سوى الطريقة اليدوية أو الاستبدال بالوورد ؟