VantagePro.pm constructor 

sub new {
  my $class = shift;
  my ($self) = Davis->new(@_);

  bless ($self, $class);

  $self->_Initialise( (@_) );

  return $self;
}