Построить график - VB

Формулировка задачи:

Нужно построить график суммы,но у меня одна прямая..

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim x As Single, s As Single, n As Integer, h As Integer, m As Integer
s = 0
If Option1.Value = True Then
h = 1
x = 7.5
m = 25
End If
If Option2.Value = True Then
h = 3
x = 12.45
m = 37
End If
Picture1.Scale (1, 10)-(m, -10)
Picture1.Line (-1, 0)-(m, 0), vbBlack 'ось x
Picture1.Line (0, 10)-(0, -10), vbBlack 'ось y
For n = 1 To m Step h
s = s + x ^ (2) / (n ^ (3) * n ^ (1 / 2))
Picture1.PSet (x, s), vbRed
Next n
Text1 = Str(h)
Text2 = Str(x)
Text3 = Str(m)
Text4 = Str(s)
End Sub

Решение задачи: «Построить график»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim x As Single, s As Single, n As Integer, h As Integer, m As Integer
    s = 0
    If Option1.Value = True Then
        h = 1
        x = 7.5
        m = 25
    End If
    If Option2.Value = True Then
        h = 3
        x = 12.45
        m = 37
    End If
    Picture1.Cls
    Picture1.Scale (-1, 200)-(m, -200)
    Picture1.Line (-1, 0)-(m, 0), vbBlack 'ось x
    Picture1.Line (0, 200)-(0, -200), vbBlack 'ось y
    For n = 1 To m Step h
        s = s + x ^ (2) / (n ^ (3) * n ^ (1 / 2))
        If n > 1 Then Picture1.Line -(n, s), vbBlue
        Picture1.Circle (n, s), 0.1, vbRed
    Next n
    Text1 = Str(h)
    Text2 = Str(x)
    Text3 = Str(m)
    Text4 = Str(s)
End Sub