Skulle behöva generera en lista på alla Controls (Label, Optionbutton etc) Denna algoritm kan kanske komma till hjälp: Jag skulle skrivit din kod på ett annt sätt:Lista på .Caption
och deras respektive Caption.
Finns det någon genväg annat än att sitta och pilla fram det manuellt?
Det duger om det kan göras i design time.Sv: Lista på .Caption
<code>On Error Resume Next 'Viktigt då inte alla kontroller har egenskapen Caption
For i = 1 To Form1.Controls.Count
MsgBox Form1.Controls(i - 1).Name
MsgBox Form1.Controls(i - 1).Caption
Next
</code>
//FreddeSv: Lista på .Caption
<code>
Dim Ctrl As Control
On Error Resume Next
For Each Ctrl In Form1.Controls
Debug.Print "Name: " & Ctrl.Name
Debug.Print " Caption: " & Ctrl.Caption
Next
</code>
MAn har ju ingen nytta av att det popar upp en massa MsgBox'ar.