论坛里有无边框例子，能移动和改变窗口大小，很好，在示例里能用，但代码拷贝后，运行报错，不识别“myform”，请专家指点一下，afterload代码如下：

e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None  \'消除窗口的边框

myform = e.Form.BaseForm

Dim dc As Foxtable.FormPanel = e.Form.Panel         \'窗口底层

AddHandler dc.MouseMove, AddressOf myform_MouseMove  \'进入控件事件

AddHandler dc.MouseDown, AddressOf myform_MouseDown   \'按下鼠标事件

以下也报错： 

窗口1_Panel1_MouseDown

If e.Button = Windows.Forms.MouseButtons.Left And e.Form.BaseForm.WindowState <> Windows.Forms.FormWindowState.Maximized Then

    MoveForm()

End If

论坛发帖地址：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=128802&ID=20284&skin=1

谢谢

 你要去看人家的全局代码

 http://www.foxtable.com/help/topics/1842.htm