创建Graphics对象，可以调用CreateGraphics()直接做图也可以创建Bitmap对象然后调用Graphics.FromBitmap(b)得到Graphics G
创新互联公司主营牧野网站建设的网络公司,主营网站建设方案,重庆APP开发公司,牧野h5小程序定制开发搭建,牧野网站营销推广欢迎牧野等地区企业咨询
G.Clear(Colors.Black)
G.DrawLine(Pens.White, 画线的坐标
工具 -新建-z轴矢量。在再你要变坐标的地方的一点 点击一下让z轴向上，就可以了。
Dim g As Graphics = PictureBox1.CreateGraphics
g.TranslateTransform(2, 2) ‘定义原点坐标
g.ScaleTransform(1, -1) ’X轴不变，反转Y轴
以PictureBox1中（2,2）点为新的原点（0,0）
向右为X轴正方向 向上为Y轴正方向
scale(x1,y1)-(x2,y2)
你只要记住，这里的x1,y1是左上角的坐标，x2,y2是右下角的坐标，通过这两个点的坐标设定，就可以决定坐标原点的位置以及坐标轴的方向了，比如
Scale (-300,200)-(300,-200)
以上是把坐标原点设在窗体中心，x轴长600，方向从左到右，y轴长400，方向从下向上。
Scale (800,0)-(0,600)
以上是把坐标原点设在窗体右上角，x轴长800，方向从右到左，y轴长600，方向从上向下。
下面说坐标轴和原点的标示法：
假定自定义坐标设为：
Scale (-300, 200)-(300, -200)
则
Line (-300, 0)-(300, 0) '画x轴
Line (0, 200)-(0, -200) '画y轴
CurrentX = 290
CurrentY = -5
Print "x" '标示x轴
CurrentX = 5
CurrentY = 200
Print "y" '标示y轴
CurrentX = 5
CurrentY = -5
Print "0" '标示原点
