唐山质量技术监督局:VB编程中的分段函数及其图像代码

我这两天在学VB，然后我想编一个分段函数及其图像的程序。
题目是：设计一个程序，可画出下面分段函数图像：
y=x^2+x-2(当x<1时)
y=-x^2+4x-3(当x>=1时)

我编的代码是：
Private Sub Form_Load()
Picture1.Scale (-5, 5)-(5, -5)
Call Cmd清除_Click
End Sub

Private Sub Cmd画图象_Click()
Picture1.DrawWidth = 1
For x = -5 To 5 Step 0.001
If x < 1 Then
y = x ^ 2 + x - 2
Else
y = -x ^ 2 + 4 * x - 3
End If
Picture1.PSet (x, y), vbBlue
Next x
End Sub

Private Sub Cmd计算_Click()
x = Val(Txt_X.Text)
If x < 1 Then
y = x ^ 2 + x - 2
Else
y = -x ^ 2 + 4 * x - 3
End If
Txt_Y.Text = y
If y >= 5 And y <= 5 Then
Picture1.DrawWidth = 1
Picture1.Line (0, y)-(x, y), vbWhite
Picture1.Line (x, 0)-(x, y), vbWhite
Picture1.DrawWidth = 5
Picture1.PSet (x, y), vbRed
Else
MsgBox "坐标点超出图像显示范围。", vbInformation, "提示"
End If
End Sub

Private Sub Cmd清除_Click()
Picture1.Cls
Picture1.DrawWidth = 1
Picture1.Line (-5, 0)-(5, 0)
Picture1.Line (0, -5)-(0, 5)
For i = -5 To 5
Picture1.Line (i, 0)-(i, 0.2)

但但我运行的时候就会跳出一个窗口：“必须有启动窗体或Sub Main（）”。请问这是什么意思啊？？？并请各位高人给我正确的代码。谢谢。
（注：有4个command：计算，清除，画图像，退出）