Представить график функции Y(x)

Private Sub Command1_Click()
Dim st As String
Picture1.Scale (-0.01, 4)-(6.3, -4)
For x = 0 To 6.3 Step 0.001
Picture1.PSet (x, x * Sin(x)), vbGreen
Next x
'Ось Х
Picture1.Line (0, 0)-(6.3, 0), vbBlue
For bytI = 0 To 6.3
Picture1.PSet (bytI, 0), vbRed
Picture1.Print bytI
Next bytI
'Ось Y
Picture1.Line (0, 4)-(0, -4), vbBlue
For bytI = -4 To 4
Picture1.PSet (0, bytI), vbRed
Picture1.Print bytI
Next bytI
'podpisi x.y
st = "X"
Picture1.CurrentX = 6
Picture1.CurrentY = 0
Picture1.Print st
s = "Y"
Picture1.CurrentX = 0.2
Picture1.CurrentY = 3.8
Picture1.Print s
End Sub

Const Pi = 3.14
Private Sub Form_Click()
Dim x As Single, Y As Single, i As Single
Dim niz As Double, verh As Double, shag As Double
   Me.Show
   niz = -7: verh = 7: shag = 0.00013
   
   Me.Caption = " Y = x * Sin(x) "
   
   DrawStyle = 0: WindowState = 2: FillStyle = 0: AutoRedraw = False
   Me.Show
   Cls
   Scale (-1, verh)-(verh, niz)
   Line (niz, 0)-(verh, 0), vbBlue  'ocb X
   Line (0, niz)-(0, verh), vbBlue   'ocb Y
   
   '''''''''''''''''''''''''''''''''''''''''''''''''
        For x = 0 To 2 * Pi Step shag              '
   '''''''''''''''''''''''''''''''''''''''''''''''''
          Y = x * Sin(x)                           '
   '''''''''''''''''''''''''''''''''''''''''''''''''
   
          Circle (x, Y), 0.015, RGB(255, 0, 0)
   Next x
  
   Form1.DrawStyle = 2   ' Пунктирная линия
   For i = -50 To 50 Step 0.5
          Form1.CurrentX = 0    ' оцифровка
          Form1.CurrentY = i
          Print i
          Line (-0.05, i)-(0.05, i)   ' засечка
          Line (-10, i)-(10, i)
   Next i
 
   For i = -50 To 50 Step 0.5
          Form1.CurrentX = i    ' оцифровка
          Form1.CurrentY = 0
          Print i
          Line (i, -10)-(i, 10) ' засечка
          Line (i, -0.05)-(i, 0.05)
   Next i
  
  End Sub
  Private Sub Form_Load()
          Form_Click
  End Sub

For x = 0 To 6.3 Step 0.001