Sub Starte_Userform()
Test_Userform.Show
End Sub
Dim cToggles() As New clsToggle
Sub UserForm_Initialize()
Dim Ctrl As control, i As Integer
For Each Ctrl In Test_Userform.Controls
If TypeName(Ctrl) = "ToggleButton" Then
i = i + 1
If i > 0 Then
ReDim Preserve cToggles(1 To i)
Set cToggles(i).MyToggle = Ctrl
End If
End If
Next Ctrl
End Sub
Private WithEvents MyToggle As MSForms.ToggleButton
Private Sub MyToggle_Click()
Debug.Print MyToggle.Name, MyToggle.Value
End Sub