在线等 关于VB绘图方法

在窗体上有Timer1、Picture1两个控件，有一段绘正弦函数图代码：

Option Explicit
Dim i, j As Double
Private Sub Form_Activate()
Picture1.Line (1000, 1000)-(1000, Picture1.Height - 1000) '画坐标系统
Picture1.Line (1000, Picture1.Height / 2)-(Picture1.Width + 1000, Picture1.Height / 2)
End Sub

Private Sub Form_Resize()
Picture1.Width = Form1.Width '配置Picture1控件大小、位置
Picture1.Height = Form1.Height
Picture1.Top = 0
Picture1.Left = 0
End Sub

Private Sub Timer1_Timer()
i = i + 1 'X坐标值
j = Sin(i) 'Y坐标值
Picture1.PSet (1000 + 500 * i, (Picture1.Height / 2) + 500 * j) '放大绘点
End Sub

绘图时两点间距太大，用Line连接点，图就不精确了，我想有没有其它方法改一下精确一点?

在线等 关于VB绘图方法 十万火急 ~在线等 关于VB绘图方法 绘图 打印， 在线等！！！ 关于VB编程溢出,在线等 vb编程绘图再线等 vb问题在线等！！！！！！！！！！ VB 问题 在线等！ VB在线急等~~~ VB 问题...在线等... VB数学题，在线等