在vb上用画一个原点不在中心的坐标系

麻烦写出全部代码和操作步骤我想用picturebox画一个原点在左下角，横轴单位长度1，只要两轴正半轴的部分（向右和向上）的坐标系。请问代码是什么，总长10；纵轴单位长度50,xiexie!，总长300!!

To 10
p1.PSet (i;0 To 300&nbsp.5;0)-(9, (0, 300)-(0, 0)
p1, 310)-(11, -10)
p1，在p1_click()事件中输入以下代码
Private Sub&nbsp'添加一个picturebox;(0, 300)-(0.2, 280)
p1.Line 0;= 1&nbsp.4)
p1.ScaleY (j - i
Next
For 10)
p1;1)
p1.ScaleX (i -&nbsp.8;(-0;Step (0, 0)-(10,&nbsp.ScaleX 6)
p1.Line (10, 0)-(9.8, -6)
For i&nbsp，命名为p1;300)-(-0.2, 280)
p1;0)
p1.Line (0.Line j = p1_Click()
p1.Scale (10.05, j)
p1, 50
p1.PSet (0.Line (-0,&nbsp.5)
p1.ScaleY (0)
p1.Print&nbsp.Line&nbsp,&nbsp

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" '标示原点