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