Kod ile yeni obje ekleme

[vagatoga]

Arkadaşlar, form üzerinde bir buton aracılığıyla yeni bir label ve textbox oluşturmam gerekiyor.. Bunu hangi kodlarla yapabiliriz.. Ayrıca bu yeni textbox başka kodlarla kullanılacağı için isimlerini nasıl atayabiliriz?? Buna benzer elinde örnekler olan var mı acaba?
Teşekkür ederim..

 

[Haluk]

Ekli örneği inceleyin ...

Not: Eğer Office2000'nin üzerinde bir versiyon kullanıyorsanız, güvenlik ayarlarında "VBA projelerinin erişimine izin ver...." gibi bir seçenek olması gerekir, bunu onaylayın.



.

 

[Mahmut Bayram]

Haluk bey önce cevaplamış ama ben de şöyle bir şey yapmıştım boşa gitmesin bari.

Dim Labelim As MSForms.Label
Dim Textboxum As MSForms.TextBox

Private Sub CommandButton1_Click()
 
 Set Labelim = Controls.Add("Forms.Label.1")
    Set Textboxum = Controls.Add("Forms.TextBox.1")
        Labelim.Caption = "Buradayım"
            Textboxum.Value = "Ben de buradayım"
  
  With Labelim
       .Height = 18
       .Width = 72
       .Left = 24
       .Top = 24
  End With
  
  With Textboxum
       .Height = 18
       .Width = 72
       .Left = 126
       .Top = 24
  End With

End Sub

 

[vagatoga]

biraz geç oldu ama her ikinizede teşekkür ederim )