Private Sub Command1_Click()
    Dim ctrl As Control
    Dim F As Form
 
    For Each F in Forms
        For Each ctrl In F.Controls
            If TypeOf ctrl Is CommandButton Then
                ctrl.Caption = "Hallo" & " " & ctrl.Name
            End If
        Next
    Next
End Sub