ok hocam
deneyeyim
teşekkürler
sormuş olduğum sorunun cevabı kullanan olur diye ekliyorum
konu boşa gitmesin
Alıntı:
'sayın dsezgin83260 den alıntıdır
Kutular ile etiketleri beraber olusturulmus ise asagida ki kod ile etiketin basligi gorulebilir.
Sub EtiketBul(KutuAdi As String)
On Error Resume Next
Dim Kutu As Control, i As Long
For Each Kutu In Me.Controls
i = i + 1
If Kutu.Name = KutuAdi And Me.Controls(i).Properties("ControlType") = 100 Then MsgBox Me.Controls(i).Caption
Next Kutu
End Sub
Private Sub Text8_Click()
Call EtiketBul(Me.ActiveControl.Name)
End Sub