Select Code to Download

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

    $obj = Win32::OLE->CreateObject('HS.Application');
    $self = bless {};
...
    sub HSEvent{
        print Dumper(\@_);
        }