[perl-win32-gui-users] moving windows

[Chris]

Okay, I have a window, but I'm not sure how to make it so I can move it.

        $Wmain = Win32::GUI::Window->new(
                    -name   => 'winamp',
                    -top => ($screen_heigth - 116)/2,
                    -left => ($screen_width - 275)/2,
                    -maxsize => [275,116],
                    -minsize => [275,116],
                    -width  => 275,
                    -height => 116,
                    -style => WS_POPUP,
                    -text   => "Winamp Remote",
        );

With that style, I no longer have the ugly windows title bar. However the
entire window is created out of labels, and I'm not sure how to make it so I
can click and drag a label to move the window around, cause that would allow
me to handle movements. I already inserted my own custom menubar buttons, so
if someone could help me, please do

Thanks Chris