对数坐标画曲线
求各位朋友帮忙：如何做对数曲线
要求：
x轴是时间轴，最大5分钟，以秒为单位
y 轴是数据轴，要求对数坐标与显示，范围是 1E-1 ------1E-5
y 轴数据在5分钟随机产生，范围在1E-1---1E-5间，每秒一个数据

要把这5分钟的y的数据在上述坐标轴里划出曲线来
这个怎么在VB里实现呀？
哪位大侠能帮帮我呀？
拜谢！！

[解决办法]

VB code

Option ExplicitPrivate Sub Command1_Click()    Dim dblX As Double    Dim dblY As Double    dblX = 0.00001    Do        dblY = Log(dblX)        Picture1.PSet (dblX, dblY)                dblX = dblX + 0.000001    Loop Until dblX >= 1    Picture1.RefreshEnd SubPrivate Sub Form_Load()    With Picture1        .Width = 600 * 15        .Height = 450 * 15        .DrawMode = 13        .AutoRedraw = True    End With    Picture1.Scale (0, 2)-(1, -20)End Sub