Private Sub readFormLanguageStrings(ByVal myform As _
     System.Windows.Forms.Form, ByVal Modul As String)
        For Each fi As System.Reflection.FieldInfo In CType(myform, _
        Form).GetType().GetFields( _
                            Reflection.BindingFlags.NonPublic Or _
                            Reflection.BindingFlags.Public Or _
                            Reflection.BindingFlags.GetField Or _
                            Reflection.BindingFlags.Instance)
            If fi.FieldType Is GetType(String) Then
                'Debug.WriteLine(fi.Name & " " & fi.GetValue(myform))
                fi.SetValue(myform, getLngValue(Modul, fi.Name, fi.GetValue( _
                  myform)))
            End If
        Next
    End Sub