Private Sub Form_Load()
      Set hs = New HS.Application
      hs.RegisterEventCB 3, Me
    End Sub

##</code><code>##

    $obj = Win32::OLE->CreateObject('HS.Application');
    $self = bless {};
    $cb = $obj->RegisterEventCB(3,$self);
    print Dumper(\$cb);

    sub HSEvent{
        print Dumper(\@_);
        }