我是新手 请多多指教啊

我也是新手

共同探讨.

Private Sub Command2_Click()
Picture1.Scale (0, 0)-(800, 400)
'Picture1.BorderStrle = 6
For x = 50 To 800
  
  Picture1.Line (x * 50, 0)-(x * 50, 400)
Next x

For y = 50 To 400
  请问各位老师：出现提示：BorderStrle只能=1，不能=6.为什么？能否为我解惑？
  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

再补：现在直线都画不出来了，不知为什么。求救版主，及各位大神！

Private Sub Command2_Click()
Dim x As Integer
Dim y As Integer
Picture1.Scale (0, 0)-(800, 396)
For x = 100 To 8
  Picture1.Line (x * 100, 0)-(0, 396), vbRed
Next x
For y = 99 To 4
  Picture1.Line (0, y * 99)-(800, y * 99), vbRed
Next y
End Sub
以上小程序预先在picture1存入一张画，800是它的横的像素，396是它竖的像素，本来是可以划线打格的，现在却不能，我把它删了，重写，瞬间出现了横竖线，但不成比例。请问各位老师，为什么，能否告知我怎么办。深致谢意！