Indexierte Labels(o.a Objekte zählen)?

[Kalma]

Hallo,

ich sitze grad im Informatikuntericht und habe die Aufgabe bekommen, herauszufinden, ob man Indexierte Labels oder andere Objekte zählen lassen kann (automatisch)

Geht das?

 

[wincnc]

Hallo

Ja das geht, egal ob mit Index oder ohne.

Private Sub Command1_Click()
Dim C As Control
Dim N As Integer

  For Each C In Me.Controls
    If TypeOf C Is Label Then
      N = N + 1
    End If
  Next

  MsgBox N
End Sub