Class Modülde tanımlanmış Textbox'a veri aktarmak

[Ergün Güler]

Selam,
3 tane Userform'un belirlediğim Textbox'lara tıkladığımda Liste Adlı Userform açılıyor. Buradaki 6 Adet Label'lerden herhangi birine tıkladığımda Labelin değerini daha önceden tıkladığım (class modülde tanımladığım) Textbox'a aktarma istiyorum. yapamıyorum.
Aşağıdaki kırmızı alanda bu işi yapmak istiyorum. Beceremedim.
Yardımcı olabilirseniz çok sevinirim.
İyi çalışmalar.

Public WithEvents secenek As MSForms.Label
Public WithEvents txt As MSForms.TextBox

Private Sub secenek_Click()

Liste.TextBox3 = secenek
[B][COLOR="Red"]'txt = secenek[/COLOR][/B]
End Sub
Private Sub txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)

Liste.Show

End Sub

 

[Ergün Güler]

Selam,

Problem çözüldü. Aşağıdaki gibidir.

Bir Module içine

Public aktif_txt

ekledim.

Class1' ise aşağıdaki kırmızı alanları ekledim.

Public WithEvents secenek As MSForms.Label
Public WithEvents txt As MSForms.TextBox
Private Sub secenek_Click()

Liste.TextBox3 = secenek

[B][COLOR="Red"]aktif_txt.Value = secenek[/COLOR][/B]
Unload Liste
End Sub
Private Sub txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)

[B][COLOR="red"]Set aktif_txt = txt[/COLOR][/B]
Liste.Show

End Sub