VB编写出现缺少语句结束错误

Private Sub Picture1_Click()
Dim x, y As Single
Picture 1.Scale (-10,25)-(10-25).
Picture 1.Line (-10,0)-(10-0),RGB(Green As Integer)
Picture 1.Line (0,25)-(0,-25),RGB(Red As Interger)
For x = -10 To 10 Step 0.00001
y = x ^ 2
Picture 1.PSet (x.y),RGB(255,0,0)
Next x
End Sub
如何解决？

Private Sub Picture1_Click()
Dim x, y As Single
Picture1.Scale (-10, 25)-(10, 25)
Picture1.Line (-10, 0)-(10, 0), RGB(255, 255, 0)
Picture1.Line (0, 25)-(0, -25), RGB(255, 0, 0)
For x = -10 To 10 Step 0.00001
y = x ^ 2
Picture1.PSet (x, y), RGB(255, 0, 0)
Next x
End Sub