Public Class SubclassHWND
    Inherits NativeWindow
 
    Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        ' do whatever custom processing you need for
        ' this message
        Debug.WriteLine(m.ToString())
 
        ' forward message to base WndProc
        MyBase.WndProc(m)
    End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
 
  #Region " Windows Form Designer generated code "
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        ' Do whatever custom processing you need for this message.
        Debug.WriteLine(m.ToString())
 
        ' Forward message to base WndProc.
        MyBase.WndProc(m)
    End Sub
End Class