画图 做一个画三角函数的画板,该怎么解决

画图 做一个画三角函数的画板
谁帮忙用一个text   一个command   和一个picture做一个画三角函数的画板啊~!
要求是在text   中输入sin、cos的公式     按command使图象在picture中输出~！
            谁帮帮忙                  
                        谢谢啦~！

[解决办法]
改一改吧，把form_click改成command1_click 然后调用text里的公式就行了，很简单的，不想改了

Option Explicit
Dim sngXPixels As Single
Private Sub Form_Click()
Dim dblXMin As Double, dblXMax As Double
Dim dblYMin As Double, dblYMax As Double
Dim sngt As Single
Dim intI As Integer
Picture1.DrawWidth = 2 '设定曲线的宽度
dblXMin = 0: dblXMax = 10
'求出函数的极大值和极小值
dblYMin = 1E+100: dblYMax = -1E+100
For intI = 0 To sngXPixels
sngt = dblXMin + (dblXMax - dblXMin) * _
intI / sngXPixels
If Sin(sngt) > dblYMax Then dblYMax = Sin(sngt)
If Sin(sngt) < dblYMin Then dblYMin = Sin(sngt)
Next intI
'使框略大一些，避免曲线压在图框上
dblYMax = dblYMax * 102 / 100: dblYMin = dblYMin * 102 / 100
'根据极值重新设定自定义坐标系
Picture1.Scale (dblXMin, dblYMin)-(dblXMax, dblYMax)
Picture1.Line (dblXMin, 0)-(dblXMax, 0) '画0线
'绘制曲线
For intI = 0 To sngXPixels
sngt = dblXMin + (dblXMax - dblXMin) * _
intI / sngXPixels
Picture1.PSet (sngt, Sin(sngt))
Next intI
End Sub

Private Sub Form_Load()
Picture1.ScaleMode = 3 '预先设定象素坐标系
'求出X轴最大象素值
sngXPixels = Picture1.ScaleWidth - 1
End Sub