攔截使用者按下表單上得『X』

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
' 參數Message : 可實作Windows 訊息。
' Message.Msg 屬性: 取得或設定訊息的ID 編號。
' Message.WParam 屬性: 取得或設定訊息的WParam 欄位。
'點到了『X』
If m.Msg = 161 And m.WParam = 20 Then
Me.Visible = False
Else
MyBase.WndProc(m) ' 處理Windows 訊息。
End If ' MyBase : 提供方法來參考目前類別(Class) 執行個體的基底類別。
End Sub