Dim N As Long
 
  N = Me.Controls.Count
  MsgBox CStr(N) & " Controls"

  Dim C1 As Control, N As Long
 
  N = 0
  For Each C1 In Me.Controls
    If TypeOf C1 Is Label Then N = N + 1
  Next C1
  MsgBox CStr(N) & " Labels"

Gruss,

Zardoz