Visual Basic: Funzioni trigonometriche

[michelez]

Private Sub mnu_senx_Click()
 For x = -10 To 10 Step 1 / 1000
  y = Sin(x)
  PctGrafico.PSet (x, y), QBColor(2)
 Next x
End Sub

Io la disegno cosi...