Public Sub formneuzeichnen()
 
        'Nach allen geöffneten Formen suchen
        For Each Frm As System.Windows.Forms.Form In _
          System.Windows.Forms.Application.OpenForms
 
            'anlegen eines Component ResourcenManager
            trans = New System.ComponentModel.ComponentResourceManager( _
              Frm.GetType)
 
            'Position der Form speichern
            Dim ptlocation As Point = Frm.Location
 
            'Resourcen übernehmen
            trans.ApplyResources(Frm, Frm.Name.ToString)
 
            'Position setzen
            Frm.Location = ptlocation
 
            'Resourcen für alle Controlls übernehmen
            For Each thiscontrol As System.Windows.Forms.Control In Frm.Controls
 
                trans.ApplyResources(thiscontrol, thiscontrol.Name)
 
                If thiscontrol.HasChildren Then
 
                    For Each thisctr As Control In thiscontrol.Controls
                        trans.ApplyResources(thisctr, thisctr.Name)
                    Next thisctr
                End If
 
            Next thiscontrol
 
        Next