[SIZE=2][COLOR=#0000ff]Sub [/COLOR][/SIZE][SIZE=2]Globals[/SIZE]
[SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Sub [/COLOR][/SIZE][SIZE=2]App_Start[/SIZE]
[SIZE=2]Form1.Show[/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]FileExist[/COLOR][/SIZE][SIZE=2]("myapp.ini") = true then [/SIZE]
[SIZE=2][COLOR=#0000ff] FileOpen[/COLOR][/SIZE][SIZE=2](c1,"myapp.ini",cRead)[/SIZE]
[SIZE=2] parameter1 = [/SIZE][SIZE=2][COLOR=#0000ff]FileRead[/COLOR][/SIZE][SIZE=2](c1)[/SIZE]
[SIZE=2] parameter2 = [/SIZE][SIZE=2][COLOR=#0000ff]FileRead[/COLOR][/SIZE][SIZE=2](c2)[/SIZE]
[SIZE=2][COLOR=#008000] '...[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff] FileClose[/COLOR][/SIZE][SIZE=2](c1)[/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]if[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE][SIZE=2] Form1_Close[/SIZE]
[SIZE=2][COLOR=#0000ff]FileOpen[/COLOR][/SIZE][SIZE=2](c1,"myapp.ini",cWrite)[/SIZE]
[SIZE=2][COLOR=#0000ff]FileWrite[/COLOR][/SIZE][SIZE=2](c1,parameter1)[/SIZE]
[SIZE=2][COLOR=#0000ff]FileWrite[/COLOR][/SIZE][SIZE=2](c1,parameter2)[/SIZE]
[SIZE=2][COLOR=#008000]'...[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]FileClose[/COLOR][/SIZE][SIZE=2](c1)[/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE]