论坛里有无边框例子，能移动和改变窗口大小，很好，在示例里能用，但代码拷贝后，运行报错，不识别“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
谢谢
加好友 
发短信
Post By：2014/10/28 21:07:00 [只看该作者]
