Menggambar Kurva Sinus dengan VB 6.0

Private Sub Command1_Click()

Dim X, Y As Integer

Me.Picture1.Cls
Me.Picture1.BackColor = RGB(0,0,0)'Latar belakang warna Hitam

For X = 500 To 2000
    Y = 1000 - 700 * Sin(X/300)

Me.Picture1.PSet(X,Y), QBColor(15)'Kurva warna putih

Next X

End Sub