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