'全局代码
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
Public Const GWL_HWNDPARENT = (-8)
Public Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
SetWindowLong(sender.Handle.ToInt32,GWL_HWNDPARENT,0)
End Sub
'窗口AfterLoad代码
Addhandler e.Form.Baseform.Load,Addressof Form_Load