my $screen_width = Win32::GUI::GetSystemMetrics(0);
my $screen_height = Win32::GUI::GetSystemMetrics(1);

$MainMenu = new Win32::GUI::Menu(
    "&Setup" => "",
    "   >   &Configuration" => "Configuration",
    "&Tests" => "",
    "   >  &Scan Drive" => "ScanLogs",
    "&Help" => "Help",
    "   >   &Help" => "Usage",
    "E&xit" => "Exit",
    "   >   E&xit" => "QuitExit",
);

$small_sh = $screen_height / 2;
$small_sw = $screen_width / 2;

my $Main = Win32::GUI::Window->new(
	-name     => "Main",
	-title    => "$program_name v$VERSION",
	-pos      => [ 100, 100 ],
	-size     => [ 600, 400 ],
	-height   => $small_sh,
	-width    => $small_sw,
	-vscroll  => 0,
	-topmost  => 0,
	-addstyle => WS_CLIPCHILDREN,
	-left     => CW_USEDEFAULT,
	-menu     => $MainMenu,
);

our $Main_msgs = $Main->AddTextfield (
    -name           => "MainMsgs",
    -multiline      => 1,
    -hscroll        => 1,
    -vscroll        => 1,
    -autohscroll    => 1,
    -autovscroll    => 1,
    -keepselection  => 1,
    -addstyle       => WS_CLIPCHILDREN,
    -left           => CW_USEDEFAULT,
    -pos            => [0,0],
    -size           => [$small_sw,$small_sh],
);