Private Sub Form_Load()
Dim i As Integer
Dim vControl As Control
 
For Each vControl In Me.Controls
    If TypeOf vControl Is Label Then
        i = i + 1
        vControl.Caption = "Label: " & i
    End If
Next
End Sub