Private Sub ctrlControll(ByVal obj As Object)
        Dim ctrl As System.Windows.Forms.Control
        If obj.Controls.Count > 0 Then
            For Each ctrl In obj.controls
                Console.WriteLine(ctrl.Name & " - " & ctrl.Width & " - " & _
                  ctrl.Text)
                ctrlSubControl(ctrl)
            Next
        End If
    End Sub
 
    Private Sub ctrlSubControl(ByVal obj As Object)
        Dim ctrl As System.Windows.Forms.Control
        If obj.Controls.Count > 0 Then
            For Each ctrl In obj.controls
                Console.WriteLine(ctrl.Name & " - " & ctrl.Width & " - " & _
                  ctrl.Text)
                ctrlControll(ctrl)
            Next
        End If
    End Sub
 
    Public Sub StartTranslating(ByVal objForm As Form, ByVal strFileName As _
      String)
        Dim ctrl As System.Windows.Forms.Control
        For Each ctrl In objForm.Controls
            Console.WriteLine(ctrl.Name & " - " & ctrl.Width & " - " & _
              ctrl.Text)
            ctrlControll(ctrl)
        Next
 
    End Sub