Listning af en forms komponenter

Min VB6 aplikation skal udvides med understyttelse af flere sprog, jeg har hertil en procedyre som ændre dansk tekst til en tekst på et andet sprog. opgaven er nu at få funktionen til at ændre alle komponent navne f.eks. sådan:
    Form1.yy_drift.Caption = DK(Forn1.yy_drift.Caption, 0, "")
    Form1.yy_fraja.Caption = DK(Form1.yy_fraja.Caption, 0, "")
    Form1.yy_admin.Caption = DK(Form1.yy_admin.Caption, 0, "")
    Form1.yy_batch.Caption = DK(Form1.yy_batch.Caption, 0, "")
Ovenstående fungere, men der er rigtig mange komponenter der skal behandles på denne,
nogen som kender en måde. hvor man i en lykke struktur, kan behandle alle formens komponenter en for en ?