Dim a As String
Dim vLabel As Label
Dim vStringLabel As String
 
Private Sub Form_Load()
 
vStringLabel = 0
For Each vLabel In Me.Controls
vStringLabel = vStringLabel + 1
Next
 
' Die Label.. äh.. labeln... 
 
For Each vLabel In Me.Controls
For a = 1 To Len(vStringLabel)
   vLabel.Caption = "Label Nummer: " & vStringLabel
Next
 
End Sub

_______________________________________
VD DeV Compile Statics.........
Loaded!
sXNet Engine Statics...............
Loaded!
Intelligence................................
Error!