Namespace Kennedy.ManagedHooks.SampleHookingApp
    Public Class MainForm
        Inherits System.Windows.Forms.Form
#Region " Member Variables "
        Private WithEvents buttonInstall As Button
        Private WithEvents buttonUninstall As Button
        Private components As System.ComponentModel.Container = Nothing
        Private WithEvents statusbar1 As StatusBar
        Private WithEvents textBoxMessages As TextBox
        Private WithEvents buttonAbout As Button
        Private KeyboardHook As Kennedy.ManagedHooks.KeyboardHook = Nothing
#End Region
 
        Public Sub New()
            InitializeComponent()
            KeyboardHook = New Kennedy.ManagedHooks.KeyboardHook()
            AddHandler KeyboardHook.keyboardevent, AddressOf keyboardhookhandler
        End Sub
 
        Sub keyboardhookhandler(ByVal kEvent As _
          Kennedy.ManagedHooks.KeyboardEvents, ByVal key As Keys)
            Dim msg As String = String.Format("Keyboard event: {0}: {1}.", _
            kEvent.ToString(), key)
            AddText(msg)
        End Sub
    End Class
End Namespace