kodla label ekleme

[greatkeops]

userformun initalize olayına label ekleme kodu yazmak istiyorum:
SORULAR adlı sayfanın S2 hücresindeki değere göre 4,5,6,....12'ye kadar gidiyor, label ekleyecek kod nedir acaba? userforma label ekleyecek bir kod arıyorum. Labellar sağ alt köşede olmalı (kod olursa daha sonra ben ayarlayabilirim). Arka zemin rengi sarı olmalı. Labellların isimleri label1, label2... diye devam etmeli. S2 deki değer 6 ise 6a tane label eklemeli.
yardımcı olan arkadaşlara teşekkürler.
(forumda label ekleyecek kod buldum ama bunu bir değere göre ve döngü içinde nasıl ekleyebilirim, bunu beceremedim.)

 

[greatkeops]

https://drive.google.com/open?id=17b4pL6W3tK2MqbOrTuD6HF_nZr5xzOC2
dosyayı yükledim arkadaşlar

 

[systran]

şu kodları deneyiniz.

Dim lbl As Control
     
Set lbl = Me.Controls.Add("Forms.Label.1")
 With lbl
     .Top = 10
     .Left = 5
     .Height = 20
     .Width = 40
     .Caption = "TED"
     .BackColor = vbBlack
     .ForeColor = vbWhite
 End With

 

[Haluk]

Yaklaşık olarak 12 yıl önce işlenmiş benzer bir konu aşağıdaki linktedir.
Forumun yenilenmesi nedeniyle sistemden silinen dosyayı biraz önce ekledim.

http://www.excel.web.tr/f14/excel-f...a-nesne-cooaltylabilirmi-t3268.html#post13980

.