Claro,el problema es que si se reinicia pues vuelve a empezar
pues que hacemos?Pues podemso guardar el ultimo valor,al cerrarse el programa,y cuando se vuelva a iniciar retomralo sumandole 1.
Private Sub Form_Unload(Cancel As Integer)
Open "c:\contador.txt" For Output As 1
Print #1, , n
Close #1
End Sub
Private Sub Timer2_Timer()
Dim ruta1 As String
ruta1 = Dir$("C:\contador.txt")
If ruta1 = "" Then
n = 1
Else
Open "C:\contador.txt" For Input As #1
Dim texto As String
texto = Input(LOF(1), #1)
Close #1
n = texto+1
End If
KTime = KTime + 1
Label1.Caption = KTime
n = 1
If KTime = 100 Then
ruta = Dir$("c:\" & n & ".txt")
If ruta = "" Then
Open "c:\" & n & ".txt" For Output As #1
Print #1, , Text1.Text
Close #1
Else
n = n + 1
Open "c:\" & n & ".txt" For Output As #1
Print #1, , Text1.Text
Close #1
End If
Text1.Text = ""
KTime = 0
End If
End Sub
Espero que te funcione.
Otra cosa,esto no lo guardes en c:,que canta un monton,hazlo en system,en windows o un siito de estos.
Saludos.