Spanish Generador de archivo de prueba no finaliza

[carlos7000]

Estoy tratando de escribir un pequeño programa que cree un archivo del tamaño que el usuario necesite.

El programa compila bien. Pero al ejecutarlo, nunca finaliza. He mirado línea a línea pero no encuentro el error.

Este es el código:

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 81
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private LabelTime As Label
    Private TextFieldPath As TextField
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show   
    Sleep(10) 'Esperamos que se dibuje la ventana
    
    Dim Data(1) As Byte
    Data(0) = 65
    
    Dim t As Long
    t = DateTime.Now 'Tomamos la hora de inicio
    For n = 0 To 1048576 'Generamos un archivo de 1 Mega de tamaño'
        File.WriteBytes(File.DirData("Temp"), "File2.txt", Data)
    Next
    t = DateTime.Now - t 'Calculamos el tiempo transcurrido'
    LabelTime.Text = t 'Mostramos el tiempo transcurrido'
    TextFieldPath.Text = File.DirData("Temp") 'Mostramos la ruta donde se genro el archivo'
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

 

[carlos7000]

Actualización:

El programa si termina, el problema es que le toma 10 Minutos la ejecución.