temel mantık yine aynı aslında
form yükleme/ Form_Load   olayına da aşağıdaki kod yazılabilir

Private Sub Form_Load()

On Error Resume Next

Dim ctl As Object

For Each ctl In Me.Controls

    if len( ctl.ControlSource & "")>0 then ctl.Controls.Item(0).Caption = ctl.ControlSource

Next ctl

End Sub

işlemin tüm nesneler üzerinde çalışacağını unutmayın