请指点一下，为什么以下代码编译出错？

[ruowuruoyou]

Private Const WM_CLOSE = &H10
Private Const WM_CREATE = &H1

Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
Select Case m.Msg
Case WM_CLOSE
MessageBox.Show("WM_CLOSE")
Case WM_CREATE
MessageBox.Show("WM_CREATE")
Case Else
MessageBox.Show("haha")
End Select

End Sub

[Ninputer]

改为
Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
Select Case m.Msg
Case WM_CLOSE
MessageBox.Show("WM_CLOSE")
Case WM_CREATE
MessageBox.Show("WM_CREATE")
Case Else
MessageBox.Show("haha")
End Select
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MyBase.WndProc(m)
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
End Sub

[ruowuruoyou]

谢谢：Ninputer(装配脑袋) ，编译已通过，但还是有问题？为什么老执行MessageBox.Show("haha")
这一句，而窗体不显示出来？（莫不是死循环？）

[Ninputer]

不是是死循环，但窗体会不断收到消息，所有消息都会引发case else，所以你那句话会不断执行

[Ninputer]

你的程序极有问题，你不要把每一个消息都拦截

[ruowuruoyou]

请Ninputer(装配脑袋)再指教：
改成以下代码仍然出错？（我的目的是想禁止关闭窗体）
Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_CLOSE Then Exit Sub
MyBase.WndProc(m)
End Sub

[ruowuruoyou]

帮忙看一下拉，让我弄个明白...

[Ninputer]

不能ExitSub，在退出窗口过程之前必须执行MyBase.WndProc

[ruowuruoyou]

谢谢