Private Sub Command1_Click() Label1(0) = 1 Label1(1) = 2 Label1(2) = 3 Label1(3) = 4 Label1(4) = 5 Label1(5) = 6 End Sub
(12-05-22, 10:41 AM)نهى علي كتب : السلام عليكم ارجوا من الاخوة الكرام تحويل هذا الكود الى حلقة تكراريه كود : Private Sub Command1_Click() Label1(0) = 1 Label1(1) = 2 Label1(2) = 3 Label1(3) = 4 Label1(4) = 5 Label1(5) = 6 End Sub
Dim x, y As IntegerFor x = 0 To 5y = y + 1Label1(x) = yNext