Dim x As String
Dim i As Integer
Dim a, b

Open "e:\temp\dummy.tmp" For Append As 1
x = "x"

'1000 = 3000 bytes
'10000 = 30 kb

a = 1000
b = a / 100

For i = 1 To a
Print #1, x
'Debug.Print i / b
label1.caption = i /b
Next i

Close 1


this code works fine but
label1.caption = i/b doesn`t work ! (it only displays 100
after it`s done)
debug.print does work !!!!

how do i make the label work ?