#!/usr/bin/perl

use Win32::GUI;


# Creating Main Window
my $main = Win32::GUI::Window->new(-name => "Main",-width => 310 , -he
+ight => 430,-style => WS_OVERLAPPEDWINDOW | 1);

# Creating Listview
my $listview = $main->AddListView(
    -title => "Listview", 
    -name => "Listview" , 
    -width => 280 , -height => 380,
    -top => 10 , -left => 10,
    -fullrowselect => 0,
    -gridlines => 1,
    -hottrack => 0,
    -style => WS_VISIBLE | 1,
);


# Inserting Columns
$listview->InsertColumn(-index => 0, -text => "Sessionname");
$listview->ColumnWidth(0,80);
$listview->InsertColumn(-index => 1, -text => "Checkboxes");
$listview->ColumnWidth(1,50);
$listview->InsertColumn(-index => 2 , -text => "BlaBla" );
$listview->ColumnWidth(2,50);

$listview->InsertItem(-item => 0 , -text => "InsertItem");

my $lvitem = $listview->Item(0);
my $lvsubitem1 = new Win32::GUI::ListView::SubItem($lvitem,1);
my $lvsubitem2 = new Win32::GUI::ListView::SubItem($lvitem,2);
my $lvckbox = new Win32::GUI::Checkbox($lvsubitem2, -checked => 1, -na
+me => "CkBx" , -text => "Chekbx");

   



$main->Show();
Win32::GUI::Dialog();


sub Main_Terminate {
    $main->AddNotifyIcon(
        -name => "Tray",
        -tip  => '',
        -icon => '',
        -id   => 222,
    );
    -1;
}

sub Main_Minimize {
    $main->Disable();
    $main->Hide();
    1;
}

sub CkBx_Click {
    print "Radio Clicked\n";
}
[download]