>>470
For Each x In Userform.Controls
　 　 Select Case Typename(x)
　 　 　 　 Case "Label"
　 　 　 　 　 　 ...
　 　 End Select
Next

みたいなのじゃなくて？