新建窗口，添加picture控件
网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、重庆小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了同心免费建站欢迎大家使用！
利用line()方法画线
line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)
For i = 1 To 16
Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)
Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)
Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)
Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)
Next i
如果要在窗口上画也可以调用窗口的line方法即form.line()
打开VB，建一个按钮，双击进去，写下面的代码：然后运行就可以了
创建批处理文件，用文件操作，分3部：1，打开：OPEN 2，写入：PRINT 3，关闭：CLOSE
然后用SHELL运行就可以了：
Private Sub Command1_Click()
Open "E:\test.bat" For Append As #1
Print #1, "@echo off"
Print #1, "echo This is just a test"
Print #1, "pause"
Close #1
x = Shell("E:\test.bat")
End Sub
shell函数是的作用是运行一个可执行程序，语法是：
Function Shell(PathName) As Double
"E:\test.bat"是文件路径名，因为这个函数要返回一个Double所以前面加了一个 X=
获取控件的Graphic对象，绘图方法都集中在了该对像中了。
1. 通过控件GreateGrapic方法获得
2. Paint 事件参数e中也有此对象
相应的图形方法是DrawImage，vb.net中没有自动重绘功能，图形不是持久的，所以应当在Paint事件中绘图。
Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
e.Graphics.SetClip(e.ClipRectangle)
e.Graphics.DrawImage(PictureBox1.Image, New Rectangle(0, 0, PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height), New Rectangle(5, 5, 100, 100), GraphicsUnit.Pixel)
End Sub
这是捕捉键盘热键，例如QQ写的一个抓屏功能，同时按下Ctrl+Alt+A 就会自动 跳出抓屏。
也就是说上面这段代码自动获取到的热键符合Ctrl+Alt+A 的命令，所以才会执行事件。
If m.Msg = WM_SYSCOMMAND Then' 如果m 的热键码 有系统命令 执行以下事件。
