189 8069 5689
该参数枚举值，采用位运算，那么可以用Or把两者连接起来即可；
10多年的宿迁网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整宿迁建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“宿迁网站设计”,“宿迁网站推广”以来，每个客户项目都认真落实执行。
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)
看样要重新定义个Font对象，在构造函数中定义它的大小，
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。
End With
要么重写这个控件的 OnPaint 事件，判断 BorderStyle 属性为 FixedSingle 的时候自绘其他颜色。
要么不重写，把 BorderStyle 设为 None，直接在这个控件的 Paint 事件里自绘边框，例如：
Private Sub Label1_Paint(sender As Object, e As PaintEventArgs) Handles Label1.Paint
e.Graphics.DrawRectangle(Pens.Red, New Rectangle(Label1.DisplayRectangle.X, Label1.DisplayRectangle.Y, Label1.DisplayRectangle.Width - 1, Label1.DisplayRectangle.Height - 1))
End Sub
运行效果：
在你的工程中引用Microsoft Script Control 1.0 这个COM组件(注意是COM的，不要到.net组件里去找)
然后用下面的方法执行JavaScript:
Dim sc As New MSScriptControl.ScriptControl
sc.Language = "JavaScript" '设置语言种类
sc.AddCode("function TestFunc(){return 'Hello world!'}") '添加脚本代码
MsgBox(sc.Run("TestFunc")) '显示一下那段脚本的返回值（这里你将看到Hello world!字符)
虽然这个人的回答出来了但是没有解决你的问题，以上是我补充的如何使用脚本。
solidco2@139.com 发给我看看
看了你的程序，你的程序里面有下面的语句
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Size = New Size(400 + 10, 397 + 30)
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
End Sub
在这里面设置了固定大小410 * 427，而且下面又把 formBorderStyle 设置成了固定大小，所以就不能改变大小了。你可以把这几行删掉或注释掉，就能够resize了。