全局代码
Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) msgbox(1)End Sub
afterOpenProject,代码
addhandler basemainform.resize, addressof BaseMainform_Resize