السلام عليكم ...
لنفرض ان على الفورم الاداة label1
كيف انشئ((( مصفوفة ))) منها اثناء التنفيذ...
كيف انشئ مصفوفة ادوات اثناء التنفيذ
السلام عليكــم ورحمـة الله وبركاتــه ،،
- Dim labelArray(2) As Label
- Private Sub Form_Load()
- Set labelArray(0) = Me.Label1
- Set labelArray(1) = Me.Label2
- Set labelArray(2) = Me.Label3
- End Sub
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال