Protected Overrides Sub WndProc(ByRef msg As Message)
 
        Select Case msg.Msg
            ' If message is of interest, invoke the method on the form that
            ' functions as a callback to perform actions in response to the 
            ' message.
        Case Else
                MyBase.WndProc(msg)
        End Select
    End Sub