请问以下小程序怎么违法？
 
Private Sub Command2_Click()
Picture1.Scale (0, 0)-(800, 400)

For x = 50 To 800
  BorderStyle = 6
  Picture1.Line (x * 50, 0)-(x * 50, 400)
Next x

For y = 50 To 400
  
  Picture1.Line (0, y * 50)-(800, y * 50)
Next y

End Sub

Private Sub Command3_Click()
End
  
  
End Sub


Private Sub Picture1mousemove(x As Single, y As Single)
 Picture1.Caption = "当前鼠标坐标为：x" & x & "y" & y
End Sub

前几天我曾在贵论坛说要写一个临摹图画的程序。请教了一个直线属性的问题。得到老师满意的指导。回去顺利的写了如上程序，还没有写完，正在调试，突然，写下的直线属性失灵。并出现提示，所写的程序违法。令我百思不得其解。违了何法？复印都不是违法，我一个70多岁的人临摹个吧画，犯什么法了。我又不是画了去卖。你既然进了我的电脑，我就有权临摹！你有何权侵入我的电脑，篡改我的东西。请大家评评理。

忘了标注，补标注如下：

Private Sub Command2_Click()
Picture1.Scale (0, 0)-(800, 400)          ’单位-像素

For x = 50 To 800
  BorderStyle = 6                        ‘所选直线属性
  Picture1.Line (x * 50, 0)-(x * 50, 400)
Next x

For y = 50 To 400
  Picture1.Line (0, y * 50)-(800, y * 50)
Next y

End Sub

Private Sub Command3_Click()
End
  
  
End Sub


Private Sub Picture1mousemove(x As Single, y As Single)
 Picture1.Caption = "当前鼠标坐标为：x" & x & "y" & y
End Sub

谢谢版主老师！不知是您提示我，得罪了，抱歉抱歉。请明示BorderStyle=6 这一行的正确写法格式。实在没想到您能亲自到我电脑提示，万分感谢，并甚至歉意。我哪里永远欢迎您亲临。

补：我对”非法“理解有误，罪过罪过，再至歉意。

还是理解错了，不是您到我的电脑，是我的6.0提示，因为我违反了6.0的规矩。是我的无知。大人不记小人过，再请原谅！

看到版主回复，惭愧得很，又高兴异常。惭愧，错误理解了版主的好心。高兴，难题，有人帮助解，有望很快解决。还能学到东西。何乐如斯！
 我的想法：老年无事想画画，又没画画的本事。想用十字绣的办法，临摹图画。具体的想法是：把存在电脑中的画（选中的），打上方格（可分的，以一定像素为单位），每一个方格都可以具体放大，并再画上小方格。当然，我的具体临摹用纸也要打上方格，但比电脑中的方格比例要大些，我以为这样可以大体相似原画，格打的越小，像的可能越大（当然，小到一定也就没意义了）。我以为以像素为单位不低于50，就可以了（指可分的方格）。至于最小的画上去小方格，不要小于5个见方。可能10个见方就行了。方格要有x,y轴的具体方位，方格要能放大并再打上横竖线，以方便较准确临摹。愿望大体如此。说起来简单，以我的能力，要实现，还遥遥无期。今有版主帮忙，心里轻松了很多。高兴的无以言表，并致谢！！再次致歉！

Private Sub Command1_Click()
Dim X As Single
Dim Y As Single
Dim x0 As Integer
Dim x1 As Integer
Dim y0 As Integer
Dim y1 As Integer

Picture1.Scale (1, 1)-(1120, 780)
For Y = 1 To 780 Step 100
For X = 1 To 1120
 Picture1.Line (X, Y)-(1120, Y), vbRed
Next X
Next Y
For X = 1 To 1120 Step 100
For Y = 1 To 780
 Picture1.Line (X, Y)-(X, 780), vbRed
Next Y
Next X

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Me.Print X, Y, Shift '鼠标位置
If Shift = 1 Then '
'
   x0 = (Fix(X / 100)) * 100 + 1
   x1 = x0 + 99                               ' 鼠标所在区域
   y0 = (Fix(Y / 100)) * 100 + 1
   y1 = y0 + 99
   Picture2.Scale (x0 * 2, y0 * 2)-(x1 * 2, y1 * 2) '在picture2里放大
End If
End Sub

Private Sub End_Click()
End
End Sub
改成如上，我以为能如愿放大，实际不成，错字那，不知道。请高手及版主帮忙解惑。谢谢！

感谢wgs1991老师，一直没上论坛，今日得见您的回复十分感谢。我把原进程删除重写。问题解决了。但仍谢谢。希望放大问题能给帮忙。再至谢意！