sine and cosine curves

Hi all,

i was wondering, how do i draw sine and cosine curves?

thanx

Code:

---

Option Explicit
Dim pi As Double

Private Sub Command1_Click()
  Dim x As Double
  Dim y As Double
  For x = 0 To Form1.ScaleWidth Step 0.001
    Form1.PSet (x, 2 + Sin(x)), QBColor(2)
    Form1.PSet (x, 2 + Cos(x)), QBColor(12)
  Next
End Sub

Private Sub Form_Load()
  pi = Atn(1) * 4
  Form1.ScaleWidth = 4 * pi
  Form1.ScaleHeight = 4
End Sub

---

Cheers