sub getAllTables{
	my $self = shift;
	my $agent = $self->{agent};
	my @links_array;
	my $links = $agent->Document->all->tags("table");
	for (my $n = 0; $n < $links->length; $n++){
		my $link_object = Win32::IEAutomation::Element->new();
		$link_object->{element} = $links->item($n);
		$link_object->{parent} = $self;
		push (@links_array, $link_object);
	}
	return @links_array;
}


##</code><code>##

	
	my $link_object = Win32::IEAutomation::Element->new();
		$link_object->{element} = $links->item($n);


##</code><code>##

		my $link_object = Win32::IEAutomation::Table->new();
		$link_object->{table} = $links->item($n);