Private _dtDeactivatedControls As New DataTable
   Private _dcControlName As DataColumn = _dtDeactivatedControls.Columns.Add( _
     "ControlName")
   Private _dcParentFormName As DataColumn = _dtDeactivatedControls.Columns.Add( _
   "ParentFormName")
 
   Public Sub DeactivateTranslation(ByVal cCtrl As Control)
        Try
            Dim dr As DataRow = Me._dtDeactivatedControls.NewRow()
            dr("ControlName") = cCtrl.Name.ToString()
            dr("ParentFormName") = cCtrl.FindForm.Name.ToString()
            Me._dtDeactivatedControls.Rows.Add(dr)
 
            Me._LastException = Nothing
        Catch ex As Exception
            Me._LastException = ex
        End Try
    End Sub
 
    Public Sub ActivateTranslation(ByVal cCtrl As Control)
        Try
            For Each dr As DataRow In Me._dtDeactivatedControls.Rows
                If dr.Item("ControlName").ToString = cCtrl.Name.ToString And _
                dr.Item("ParentFormName").ToString = _
                cCtrl.FindForm.Name.ToString Then
                    Me._dtDeactivatedControls.Rows.Remove(dr)
                    Exit For
                End If
            Next
 
            Me._LastException = Nothing
        Catch ex As Exception
            Me._LastException = ex
        End Try
    End Sub