很簡單的程式碼,直接加到Form.vb裡面就會生效。
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim param As CreateParams = MyBase.CreateParams
param.ClassStyle = param.ClassStyle Or &H200
Return param
End Get
End Property
效果如下: