Unnamed

use win32::GUI;

my $dos = Win32::GUI::GetPerlWindow();

Win32::GUI::Hide($dos);

my $Window = new Win32::GUI::Window (
    -name     => "Window",
    -title    => "NetSend Utility",
    -pos      => [100, 100],
    -size     => [200, 375],
    -minsize => [200, 375],
    -menu     => $Menu,


) or die "new Window";

$Window->AddLabel(
                -text => "Which user do you wish to message?",
                -pos  => [6, 1],
                -font => $font,

       );

# Create Textfield for Edit Text
$Window->AddTextfield(
    -name      => "user",
    -pos       => [6, 20],
    -size      => [100, 25],
    -multiline => 0,
    -hscroll   => 0,
    -vscroll   => 0,
    -autohscroll => 0,
    -autovscroll => 0,
    -keepselection => 1,
    -font => $EditFont,
);


#Text Asking What you wish to send
$Window->AddLabel(
                -text => "What text do you wish to send",
                -pos  => [6, 60],
                -font => $font,

       );

#Textfield for The text you wish to send...
$Window->AddTextfield(
    -name      => "text",
    -pos       => [6, 80],
    -size      => [100, 25],
    -multiline => 0,
    -hscroll   => 0,
    -vscroll   => 0,
    -autohscroll => 0,
    -autovscroll => 0,
    -keepselection => 1 ,
    -font => $EditFont,
);

#How Many Times are you going to send the text?
$Window->AddLabel(
                -text => "How many times do you wish to send?",
                -pos  => [6, 120],
                -font => $font,

);
$Window->AddTextfield(
    -name      => "$times",
    -pos       => [6, 140],
    -size      => [100, 25],
    -multiline => 0,
    -hscroll   => 0,
    -vscroll   => 0,
    -autohscroll => 0,
    -autovscroll => 0,
    -keepselection => 1 ,
    -font => $EditFont,
);


#Adds Button To $window
$Window->AddButton(
                -name => "Button1",
                -text => "Net Send!",
                -pos  => [ 10, 300 ],
        );

        $W2 = new Win32::GUI::Window(
                -name  => "W2",
                -title => "I need to put the code in",
                -pos   => [ 150, 150 ],
                -size  => [ 300, 200 ],
        );

        $Window->Show();

        Win32::GUI::Dialog();

        sub Button1_Click { $W2->Show(); }

        sub W1_Terminate { return -1; }