Part of my previous problem "Input file"

Hi all,

Private Sub Command1_Click()
Open "filesp" For Output As #1
v = 0
For j = 1 To 10
v = v + 3
Write #1, v
Picture1.Cls
Picture1.Print v

Next j
Close #1
End Sub

from above code I wrote some data in file like 3, 6,9................30. To call or read that data sequentially under the same command button I wrote the following code. but I am able to call only the first value like 3. After some time I want to call the data like 6 by pressing the same command button. I didn't get.So I am expecting help to overcome this problem.

Private Sub Command2_Click()
Dim v As Integer
Dim c As Integer
Open "filesp" For Input As #1
Input #1, v
c = v
Picture2.Cls
Picture2.Print c
'Next j
Close #1
End Sub

Thanks a lot for your answer
Bye

try like this

VB Code:

Dim v As Integer
Dim c As Integer
Open "filesp" For Input As #1
Do While Not EOF(1)
    Input #1, v
    c = v
    Picture2.Cls
    Picture2.Print c
Loop
Close #1

but maybe you have to delete "Picture2.Cls" command to display all read data